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~ TITLE Be yee tit - DECODE DAP MESSAGE 
IDENT ‘V04=000 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE Be nation ru UNDER A LICENSE AND a PS 32 USED AND COPIED 
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« IN 0 ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
* TRANSFERRED. ’ 
® cd 
: THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
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BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS wi ee 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 
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++ 
Facility: FAL (DECnet File Access Listener) 


Abstract: 


This module decodes (parses) the next DAP message and stores the 
validated fields in the DAP control block. 


Environment: VAX/VMS, user mode 


Author: James A. Krycka, Creation Date: 16-JUN-1977 
Modified By: 
v03-008 JEJ0048 J E Johnson 13-Jul-1984 
Eliminate the check for a file name of 128 characters or 
more. 
v03-007 JEJ0019 JEJ 27-Mar-1984 


Alter erece OPERATING Sy eTER to use DAP$V_P_OS 
0 ag due to naming conflict yith DAS POS. 2. ie 
coataiee ng ane Also use DAPSK_P 


V03-006 JAK0124 06-SEP-1983 
Update new DAPSa> CODE "Ete status bits during parse of 
Configuration message. 


v03-005 JAKO113 J A Krycka 22-JUN-1983 
Continuation of supper for DAP V7.0 spec. 
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1” 
Add support 
Also, +4; DA 


V03-004 KRMO105 
Update to suppor 


v03-003 KRMO0085 
Add support for 
Also, set DAPS$V_ 


V03-002 KRM0069 
Add support for 


SEP- 
-SEP- 
for 
P$V_ 
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t binary keys 
PFn flags as “appropriate. 
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-1983 
v7.0 aeahttlcotlen, 
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Lik 23-Mar-1983 
F ane STMCR file formats. 
v70 bit as appropriate. 
lik 
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ik 23-Nov-1982 
ME service. 
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73 -SBTTL DECLARATIONS 
0008 
° 6 ; Include Files: 
7 ¥ 
000 4 
44 7 SDAPPLGDEF ; Define DAP prologue symbols 
00 50 SDAPHORDEF ; Define DAP message header 
00 1 SDAPSSPDEF 3; Define DAP system specific field 
0 6 SDAPCNF DEF ; Define DAP Configuration message 
000 8 SDAPATTDEF ; Define DAP Attributes message 
8 8 HE SDAPACCDEF ; Define DAP Access message 
0 5 SDAPCTLDEF ; Define DAP Control message 
0000 86 SDAPCONDEF ; Define DAP Continue Transfer message 
0000 87 SDAPACKDEF ; Define DAP Acknowledge message 
0000 88 SDAPCMPDEF ; Define DAP Access Complete message 
0000 89 SOAPDATDEF ; Define DAP Data message 
0000 90 APSTSDEF ; Define DAP Status message 
0000 91 SDAPKEYDEF 3; Define DAP Key Definition message 
0000 8 SDAPALLDEF ; Define DAP Allocation message 
0000 9 SDAPSUMDEF ; Define DAP Summary message 
0000 94 SDAPTIMDEF ; Define DAP Date and Time message 
0000 95 SDAPPRODEF : Define DAP Protection message 
0000 96 SDAPNAMDEF ; Define DAP Name message 
0000 97 SDAPF IDDEF : Define DAP field ID symbols 
0000 98 
0000 99 ; 
0000 100 ; Macros: | 
0000 101; 
0000 38 ; See next page for local macro definitions. 
0000 103; 
0000 104 ; Equated Symbols: 
0000 105 ; 
0000 106 
00000000 0000 107 K_ExT=0 ; Extensible field format 
00000001 0000 108 K_FIXx=1 ; Fixed Length field format 
00000002 0000 109 x 1MG=¢ ; Image field format 
0000000 44 49 K_ROM= ; Rest-of-message field format | 
00000004 0000 \1¢ V_DESC=4 ; Store descriptor of source field 
00000005 9000 11 volaveted ; Truncate source field if necessary | 
00000006 0000 114 V_SRCR3=6 ; Source field size in R3 
000 112 ; (applicable only if K_FIX specified) 
00000010 $00 19 M_DESC=<laVv_DESC> ; Mask for V_DESC 
aaa tt 4 118 mW TRUNGs< 190 _TRUN > ; Mask for V_TRUN 
0000004 00 119 M~SRCR3=<1aV~SRCR5> : Mask for VZSRCR 
209 ASSUME DAPSQ_DCODE_FLG EQ 0 
123 ; 
a0 124 ; Own Storage: 
4 ! > 3 & 
3 one 
$00 1 7 : 


SIZE = the size in bytes of designated field in the DAP control block. 
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VO%-500 LOCAL MACRO DEFINITIONS -SEP-1984 gti 38 FRAL SRCJFALDECODE.MAR: 1 . 
He } 4 -SBTTL LOCAL MACRO DEFINITIONS 
151 344 
4 1 ¢ ; STORE_FIELD obtains the next field (if any) from the DAP message being parsed, 
0 8 1 ; converts it to an apereer tere format, and stores the result in the designated 
8 : ¢ ; field of the DAP control block. The arguments (coded in-line) are: 
2000 1 § 3 NAME = the symbolic name of DAP field used to generate symbclic DAP 
000 137 ; control block offset and field ID values. 
0000 138 ; SIZE = the size in bytes of designated field in DAP control block. 
0000 139; FORMAT= the format or structure of the source field. Choices are: 
8808 140 ; K_EXT = extensible field (bit? of gach byte is used to signify 
00 141 ; termination/continuation (0/1) of the field). 
0000 146 ; K_FIX = fixed bengch field. 
0000 143 ; K_IMG = image field (counted string). 
0000 144 ; K_ROM = res sevaneseege is taken as the next field. 
0000 145 ; MASK = the flags to control field processing: 
0000 146 ; M_DESC= store only descriptor of the source field. 
0000 =147 ; M_TRUNC=truncate extra bytes if SRC field size is larger than 
0000 148 ; T field size (instead of declaring an error). 
0000 149 ; M_SRCR3=size of source field is given in R3 (applicable only if 
0000 150 ; K_FIX is also specified). 
0000 151 ;-- 
0000 13 
0000 15 «MACRO STORE_FIELD NAME,SIZE=1,FORMAT=1,MASK=0 
0000 154 SBW = STORE FIELD 
0000 155 -BYTE SIZE 
0000 156 TMP1..=. 
0000 157 LIF EQ <SIZE-1>, -BYTE DAP$B_ ‘NAME 
0000 158 ~LIF EQ <SIZE-2>, - E DAPSW_ "NAME 
0000 159 LIF EQ <SIZE=4>, «BYTE DAPSL_ ‘NAME 
0000 160 LIF €Q SeitE-$?- BYTE DAPSW_ ‘NAME 
0000 161 LIF EQ <SIZE-8>, -BYTE DAP$Q_ ‘NAME 
0000 16¢ TMP2..=. : 
0000 16 LIF EQ <TMP2,.-TMP1..>,.ERROR ;***** invalid field size ***##*; 
0000 164 -BYTE DAPS_ ‘NAME 
0000 165 BYTE FORMAT ! MASK 
0000 166 .ENDM © STORE_FIELD 
0000 167 
0000 168 ;++ e 
4448 169 ; CHECK_MASKS examines the designated field of the DAP control block for 
44 109 ; invalid and unsupported bits set. The arguments (coded in-line) are: 
8808 176 : NAME = the symbol ic name of the DAP field used to generate symbolic 
0 173 ; invalid and unsupported mask values. 
0000 174 ; i 
0 38 175 ; 
0 176 
99 17 .MACRO CHECK_MASKS NAME,SIZE=1 
0 128 BSBW CHECK MASKS 
00 17 -BYTE SIZE 
0 180 TMP1..=. 
0 181 LIF EQ <SIZE-1>, «BYTE DAPSK_'NAME'_1,DAPS$K_"NAME'_U 
1 ‘ LIF EQ <SIZE-2>, -WORD DAPS$K~"NAME'"1,DAPSK~ "NAME '"U 
: — LIF EQ <SIZE-4>, «LONG DAPSK_"NAME' 1 ,DAPSK_"NAME'_U 
000 185 LIF EQ <TMP2..-TMP1..>,.ERROR ;***** invalid field size *****; 
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0000 186 


~ENDM 


CHECK_MASKS 
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vOe-000 FALSDECODE MSG’ DEEODE DAP MESSAGE oreeen 188s br:t6:45 EAC VeRcHTALbEtopECmaR;1 = P29° (8) 
1 § -SBTTL FALSDECODE_MSG = DECODE DAP MESSAGE 
0000 4 -PSECT FALSCODE NOSHR,EXE,RD,NOWRT BYTE | 
0 191 ;+4 | 
§ 138 : Functional Description: 
000 194 ; FALSDECODE_MSG is responsible for parsing a DAP message into its | 
0 195 3 constituent fields, storing these field values into corresponding fields 
000 196 ; in the DAP control block, and finally eat validity checks on the 
4 197 ; contents of the converted fields to screen out invalid and unsupported 
$8 138 ; bit options or field values. 
0000 00 ; Each DAP Bessege Logically consists of two parts: 
0000 01 ; (1) a message header (called the operator field in DAP). 
0000 8 5 (2) a message body (called the operand field in DAP). 
0000 03 ; In addition, the message header may optionally contain a system 
0000 04 ; specific field for use by nepopenceus systems which is treated as a 
4444 82 3 mini=message with discrete fields. 
0000 207 ; Calling Sequence: 
0000 208 ; 
0000 09 ; CALLS #1,FALSDECODE_MSG 
0000 10 ; 
0000 11 ; Input Parameters: 
0000 \¢ : 
0000 13 3 4(AP) Address of DAP control block 
0000 14 ; 
0000 15 ; Implicit Inputs: 
0000 16 ; 
0000 73 None 
0000 18 ; 
0000 19 ; Output Parameters: 
0000 0; 
0000 13 RO Status code 
0000 § 3 R1 Destroyed 
0000 23 ; 
44 $e : Implicit Outputs: 
0900 § : Various fields of the DAP control block are updated. 
38 3 : Completion Codes: 
000 ? : DAP$L_DCODE_STS is returned in RO where bit 0 indicates success/failure. | 
0 6 é : Side Effects: 
° 4 : None 
$3 
OF FC 8 -ENTRY FALSDECODE_MSG,“M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 
0 ; Entry point 
4¢ : Perform initialization. 
0 44° | 


oot iti REESE GINGER YALUMEPSTSSztBaasn "0 


AGE 
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to contain the address of the next byte to parse 


ODE M 
ECO G 
59 04 AC pe ¢ 45 MOVL 4(AP) ,RO ; Get address of DAP control block 
18 A901 p 46 MOVL #1,DAP$L DCODE STS(R9) |: Assume successful parse 
5A 08 AD 7D A 26 MOVG DAPS$Q_MSG_BUFITR9),R10 : R10 = size of message 
OE 48 ; R11 = address of start-of-message 
10 A9 «=5SA 7D $9 49 R10,DAP$Q_MSG_BUF2(R9) ; store in result descriptor 
5A 5B CO 1 29 ADDL2 __R11,R10 ; R10 = address of end-of-message + 1 
01 1 $ZERO_FILL- ; Zero current message work area 
001 26 DST=DAP$L_CMWA(R9) = ; in DAP control block 
Bat 5 SI ZERADAPSK CMWA : 
24 A994 Boob a CLRB DAP$SB_X_FIECD(R9) ; Clear ‘explicitly specified’ flags 
56 ;+ 
: 33 ; Note the current status of registers R8-R11: 
00 oy 3 R8 Currently undefined; later it will be used to contain the 
00 60 ; address of the routine to execute on reaching end-of-message 
00 61 ; R9 Address of DAP control block 
00 66 ; R10 Address of end-of-message-buffer + 1; later it will contain 
00 635 ; the address of end-of-message + 1 
83 § see ; R11 Address of start-of-message; it will be continually updated 
0022 266; 
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p++ 

; Decode the header of the DAP message (operator portion of the message). 

; Then dispatch on message type to parse the body of the DAP message (operand 
3; portion of the message). 


HEADER: 3; Continuation of mainline 
ASSUME DAP$ 


SBSSSSSTSESTETTIETETS 
NMMONMNMHMNHHMHHNOM 
DAQDAAAAAAAAAAAG 
MmMmmmmmmmmmmmmemn 
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ASSUME DAPS$K_NA 
: For optional fields, apply default values as appropriate. 
3C AD «=6669—sS7E MOVAQ (R9),DAPSQ_SYSPEC+4(R9) ; Initialize descriptor 


Process the DAP message type field (required). 


58 O91D'CF 9 MOVAB W*ERROR_FORMAT,R8 ; Specify transfer address on EOM 
STORE_FIELD TYPE,1,K_FIX ; Save type field 

66 95 TSTB (R6) ; Test for valid value 
0B 13 BEQL 10$ ; Branch if out-of-range 

OF 66 91 CMPB (R6) ,#DAPS$K_NAM_MSG ; Test for valid value 
06 #=1A BGTRU 10$ :; Branch if cutsorwrange 

1A AD 66 90 MOVB (R6) ,DAPSB_DCODE_MSG(R9); Return message type in status code 
03; 11 BRB 20$ 3; Continue 
O8&8 31 10$: BRW ERROR_INVALID ; Branch aid 
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Process the DAP message flags field (required for most messages). 

This is a combination menu and bit option field whereby each bit set denotes 
that either an associated field is included in the message or a message 
option is specified. 
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Note: If no wlogs field is found (i.e., its a one-byte message), the 
associate operand parse routine for the message will stilt be entered 
(via DISPATCH_TABLE) to determine if the message is valid and to apply 
operand field default values. 
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v04-000 HEADER = DECODE MESSAGE HEADER -SEP-1984 01:16:4 FAL.SRCJFALDECODE .MAR; 1 (5) 
44 5 
44 § ASSUME DAPSV_STREAMID+1 EQ DAP$V LoyeTH 
44 ASSUME DAP SV -LENGIO*} EQ DAP$V_LEN25 
44 8 ASSUME DAPS$V_LEN256+1 EQ DAPSV_BITCNT 
44 ASSUME yrs tag TE EQ DAP$V_SYSPEC 
Ree 9 ASSUME DAPSV_SYSPEC+1 EQ DAPSV_SEGMENT 
58 OOCB8'CF 9 $e § 20$: MOVAB W*“DISPATCH_TABLE,R8 : Specify transfer address on EOM 
049 STORE_FIELD FLAGS,1,K_EXT ; Save flags field 
bee 4 CHECK_MASKS FLAGS,1 ; Validate bit options 
58 O91D'CF 9E 56 5 MOVAB” W*ERR _FORMAT ,R8 ; Specify transfer address on EOM 
5C 66 QA 8828 § -_ oe (R6) , AP ; Copy menu to scratch register 
50 5C O07 OO EA 0056 Bt wae #0, #DAPSV_SEGMENT+1,AP,RO; Get position of next bit set 
006 39 SCLRBIT RO,AP ; Clear menu bit just found 
F4 AF QF 0067 40 PUSHAB B*HDR_LOOP ; Push return address on stack 
bB6A ] S$CASEB SELECTOR=RO- 3 Next field/option: 
=<e2= Py 
006A zg 10$- ; STREAMID 
006A 44 i ; LENlY 
006A 45 0$- ; LEN2S6 
006A 46 ERROR_UNSUPPORT- ; BITCNT 
006A 47 ERROR_FORMAT=- ; Reserved 
006A 48 - : SYSPEC 
006A 49 ERROR_UNSUPPORT=- ; SEGMENT 
006A $29 > ; 
4A 11 tas 52 BRB DISPATCH_TABLE 3 Message header syntax is correct 
007E 25 8 
Bate 2¢ ; Process each field/option specified in the menu (optional). 
O7E 356 ° 
aO7E 57 108: STORE_FIELD STREAMID,1,K_FIX; Save data stream identification field 
66 95 008 58 TSTB (R6) ; Currently, multi-streams are 
0087 59 3 _not supported, so check value 
3¢ ig sie 99 BNEQ HDR_UNSUPPORT ; Branch on error 
008A 6 20$: STORE_FIELD LENGTH,1,K_FIX ; Save length field 
08 5C 02 €1 0091 6 BBC #DAPS$V_LEN256,AP,35$ ; Branch if Length value in header is 
0095 64 3 expressed in one byte (i.e., there 
05 0095 65 RSB : _is no LEN256 field present) 
Boo6 66 30$: STORE _FIELD LEN256,1,K_FIX ; Save length extension field 
9D 68 ; 
444 é3 ; Determine end-of-message based on operand Length value in message header. 
090 371° 
43 4 ASSUME DAP$B_LENGTH+1 EQ DAP$B_LEN256 
33 a9 oC 9D 74 35$: MOVZWL DAPS$B_LENGTH(R9) ,RO ; Get operand Length value 
51 5B 50 C1 Al 75 ADDLS = RO,RIT,RI ; Compute new end-of-message + 1 address 
5A 51 D1 OOAS 6 CMPL R1,R ; Error if not enough bytes in buffer 
18 #1A A8 7 BGTRU HDR_INVALID ; to contain message 
SA 51 0 AA 8 MOVL R1,R10 3 Update end-of-message address 
0 ‘AD 7 RSB : 
AE 0 
AE 1 ge 
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Nivedita HEADER = DECODE MESSAGE HEADER -SEP-1984 gti 38 LRAL SRCIFALDECODE MAR; 1 ° (3) 
ne ¢ 3 Suggested code to support the BITCNT field is shown below. 
AE 4 ;40$:  STORE_FIELD BITCNT. 1,K_FIX : Save bit count field 
AE 2 CMPB ~ DAPS$B_TYPE(R9).-— ; BITCNT field allowed only in 
AE § : #DAPSR_DAT_MSG ; Data messege 
AE 3 BNEQ 3; Branch on err 
AE 2 3 CMPB (R6) ,#7 ; Check for value in the range 0-7 
AE 89 ; BGTRU HDR_INVALID ; Branch on error 
AE 90 ; RSB : 
AE 91 ;- 
OAE 38 
pA 93 60$: STORE_FIELD SYSPEC,8,K_IMG,<M_DESC> 
Ht 3¢ “Saye descriptor of system specific 
30 Ad) so 91—s«O0BS 96 CMPB DAP$B_TYPE(R9),=-  SYSPEC field not allowed in 
0 0088 97 #DAPSR_CNF_MSG ; Cont Sgur ation message 
5 13 0089 98 BEQL 50S 3; Branch on er 
01 69 34 E1 0088 99 BBC #DAPSV_VAXVMS,(R9),80$ ; SYSPEC field. plteved only if 
OOBF 400 : systems are homogeneous 
05 OOBF 401 RSB 3 
68 17 Bors rh 80$: JMP (R8) ; Branch to error_format routine 
00C 404 ; 
00C 405 ; Branch here on exception condition. 
00C 406 ; 
00C 407 
00C2 408 HDR_INVALID: : 
0867 31 O0C 409 RW ERROR_INVALID ; Branch aid 
00C5 410 HDR_UNSUPPORT: ; ; 
0870 31 00Cc5 411 BRW ERROR_UNSUPPORT ; Branch aid 


FA 


FAL OEE ODE - D 
v04-000 DIS 
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oo 


GE 1 mets 9134 +38 tee Macro V04-00 Page 
ASE ON MESSAGE TYPE -SEP=-1984 01:16:4 FAL.SRCIJFALDECODE.MAR; 1 


~SBTTL DISPATCH_TABLE = CASE ON MESSAGE TYPE 


+ 


The DAP messasge header has been successfully parsed. Now dispatch on message 
type to the appropriate code segment to process the body of the message. 


; Note: The case table entries below should match the DAPSK_VALID_R2F message 
mask! 


SOOCOSSCSCSOOSOSOOSOOCOOOCOOOOOOOOOOOOOOOOOCOOOOO 
SOOOCOCSCSOSCSCSCSOSOSOSOSCSOOCOCOSOSOOOOOOOOOOOOSOOOSCOO 


PME EM A AIAIAIAAIAIOOAAAAAAOAAOAONAAAOHAQON|AO 
MMMUMMOOWOWDWOWOOWOIWOOWDWWOWWWWomocomcococococecoceaNeD 


DISPATCH TABLE: ; Continuation of mainline 
57 00 9A MOVZBL #DAP$_UNKNOWN,R7 ; Set field ID to ‘unknown’ 
SCASEB SELECTOR=DAP$B_TYPE(R9)-: Dispatch to message specific decode 
BATE CPOAPOR CHF ASE i routine to process: 
CNF_MSG- 3 reat pres ten message 
ATT_MSG- ; Attributes message 
ACC_MSG- ; Access message 
CTL_MSG- ; Control message 
CON_MSG- ; Continue Transfer message 
ERROR_SYNC- ; Acknowledge message 
CMP_MSG- ; Access Complete message 
DAT_MSG- ; Data message 
ERROR_SYNC- ; Status message 
KEY_MSG- 3 Key Definition message 
L_MSG- ; Allocation message 
ERROR_SYNC- ; Summary message 
_MSG- ; Date and Time message 
PRO_MSG- ; Protection message 
. NAM_MSG- ; Name message 


Sete Ge Se 


The message type value has been validated (bounds checked), so the type value 
will not be outside the range of the case table above. 


FALDECODE - DE 
vOe-000 CNF 


zo 
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E DAP MESSAGE 16-SEP-1984 01:42:3 AX/VMS Macro V04-00 P 
= DECODE CONFIGURATION MESSAGE 3b] 98c Bf 245 t oer 


FAL. SRCJFALDECODE.MAR; 1 


-SBTTL CNF_MSG = DECODE CONFIGURATION MESSAGE 


+ 


CNF_MSG: 
MOVAB W*ERROR_FORMAT,R8 


STORE _FIELD BUFSIZ,2,K_FIX 


These fie 
on their values is performed. 


cov VvTuVTco9o 
m 
o 
=z 
c 


Process the system capabilities field 


be 
; Decode the operand fields of the Configuration message. 


; Code segment of mainline 
; Specify transfer address on EOM 


Process the buffer size field (required). 


Save 


Save 
Save 
Save 
Save 
Save 
Save 
Save 


buffer size field 


Process fe software and DAP protocol version number fields (required). 
ds are for information purposes only; hence no bounds checking 


file system type 

DAP version # fiel 

ECO version # field 

user protocol version # field 
DEC software version # field 
user software version # field 


operating system type field 
4 fe . field 


(required). 


Bits set that are not defined in the DAP spec are ignored (not flagoed as 
an error) to facilitate compatibility with earlier implementations of DAP. 


STORE_FIELD SYSCAP,8,X_EXT,<M_TRUNC> 


CHECK_PROTOCOL_VERSION: 
MOVZBL DAP$B_VERNUM(R9) ,RO 


ASHL  #8,ROTR 
ADDB2 DAP$SB/ECONUM(R9) ,RO 


RO, #*X0401 
10$ 


cMPW 
BLSSU 
$SETBIT #DAPSV_GEQ_V41,(R9) 


Save 


system capabilities field 


Set appropriate DAPS$Q_DCODE_FLG bits 
Combine version number and ECO 
number fields into one 16-bit 

value for easy comparison 


Set status flag if partner implemented to DAP spec since V4.1. 


3; Did partner implement since DAP V4.1? 
: Branch if not 


; Set fl 


: Set status flag if partner implemented to DAP spec since V4.2. 


CMPW 


RO, #*X0402 
BLSSU-10$ 


; Did partner implement since DAP V4.2? 
; Branch if not 


FA 


- 


| FALDECODE - DECODE DAP MESSAGE 16-SEP-1984 01:42:3 AX/VMS M v04-00 P 
Mivetit CNF_MSG = DECODE CONFIGURATION MESSAGE =-SEP=1984 Ot: 48:28 YR AL SRCIFA [DEC ODE .MAR;1 ro7 
iF a8 SSETBIT #DAP$V_GEQ_V42,(R9) ; Set flag 
154 3 
! 2 19 ; Set status flag if partner implemented to DAP spec since V5.2. 
0154 512° 
0502 8F 50 861 a1 84 18 CMPW RO,#*x0502 3; Did partner = lement si DAP v5.2? 
3a iF «0159514 BLssu 108 | french ff wet an 
Stee 212 SSETBIT #DAP$V_GEQ_V52,(R9) : Set flag 
ge a8 
Bi 3F 18 ; Set status flag if partner implemented to DAP spec since V5.4. 
015F 520 ° 
0504 8F 50 B61 O1SF 521 CMPW RO, #*xX0504 3; Did eriyer Mn Lement since DAP V5.4? 
30 1F 0164 BLSSU_ 1 3 S Sronth if n “ 
0166 5 SSETBIT #DAP$V_GEQ_V54,(R9) ; Set flag 
016A 524 
016A 525; 
thy é 8 ; Set status flag if partner implemented to DAP spec since V5.6. 
016A 528 ° 
0506 8F 50 B11 OQ16A 2¢? CMPW RO ,#*x0506 i Did partner japlonent since DAP V5.6? 
25 1F O16F 530 BLSSU 108 : Branch if n 
0171 531 SSETBIT #DAP$V_GEQ_V56,(R9) : Set flag 
0175 235 
0175 «6533; 
Ot2e a3 ; Set status flag if partner implemented to DAP spec since V6.0. 
0175 536 * 
0600 8F 50 B61 0175 £537 CMPW RO, #*xX0600 ; Did partner japlonent since DAP V6.0? 
1A so 1F «(OO17A— 5538 BLSSU : Branch if not 
017C 86539 SSETBIT #DAP$V_GEQ_V60, (R9) : Set flag 
0180 540 
0180 541 ; 
344 245 ; Set status flag if partner implemented to DAP spec since V7.0. 
0180 544 ° 
0700 8F 50 61 0180 545 CMPW RO,#*x0700 ; Did partner laplanent since DAP v7.0? 
OF 1F 0185 546 BLSSu-10$ : Branch if not 
0187 547 SSETBIT #DAP$V_GEQ_V70,(R9) ; Set flag 
0188 eee 
0188 49 ; 
at 239 ; Set status flag if partner implemented to DAP spec since V7.1. 
0188 552 ° 
0701 8F 50 B61 O168 226 CMPW RO,#*x0701 ; Did partner laplonent since DAP V7.1? 
04 1F 0190 554 BLSS Branch if not 
019¢ 555 S$SETBIT #DAP$V_GEQ_V71,(R9) : Set flag 
396 556 
0196 aH § 
0196 58 ; Set experimental protocol flags from the low order four bits of the USRNUM 
196 59 ; field only if partner is VAX/VMS. 
196 Bel 
42 a9 91 196 6¢ 10$: CMPB DAP$B_OSTYPE(R9) ,- ; Branch if partner is not VAX/VMS 
07 0199 6 #DAPSR_VAXVMS 3 


—~ 
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FALDECODE E DAP MESSAGE 16-SEP=1984 01:42:32 YAX/VMS M 4 
voe=500 SEp=1984 01:16:49 ERALYSRCIPALDECODE _ 
YST 


ao 
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ao 


= DECODE CONFIGURATION MESSAGE 984 FAL.SRCJFALDECODE.MAR; 1 
BNEQ CHECK -fite.S SYSTEM 
EXTZV #0, 847DAPSB_USRNUM(R9),RO ; Get Low order four bits of USRNUM 
INSV RO, #DAPSV_VAS_XPF1,#4,(R9) : Set experimental protocol flags 
CHECK_FILE_SYSTEM: ; Set appropriate DAP$Q_DCODE_FLG bit. 


ASSUME DAPSK 


ASSUME DAPS$K RMS 


: Set status flag pertaining to the type of file system used by the remote node. 


SCASEB ECTOR= Psk RA o ILESYSCRP?- 


SEL 
BASESSOAPSK 5 : Type of remote file system: 


No file system present 
TOPS=-20 

TOPS-10 

Undefined 

RMS-32 subset 

10 #11 
OA 11 


04 11 


Set RMS based file system flag 
Set FCS based file system flag 
Set stream ASCII file system flag 


> 
BRB 40$ 
10$: pee rere #DAPSV_RMS, (RI) 
208: SSETBIT #DAPS$V_FCS,(R9) 


30$:  SSETBIT #DAPSV_STM_ONLY, (R9) 


CHECK_OPERATING_SYSTEM: ; Set appropriate DAP$Q_DCODE_FLG bit 
ASSUME DAPSK_R 


a 
Oo 
wr 
a 
Be Be Oe Be Be Be Oe Be Oe Oe Be Oe Oe Oe Oe Be Be Se ee 


ASSUME DAP$K~P 
ASSUME DAPSE “VKX L 


eh a at ss ts as a sa ss — a ss —) ss ss ss Ss Ss es 
VOUGVVCV SCV GT SCVT FTV VV FOAANOAHOOYFKYExyYExyKYEYyrKYyrKYrKYrKYrKrrrrrKrKrrrrrrrrrrrrrrrrrvon 
PIPPIPPIPIPININININININIMNINNNIM 2 OOM NN SSSI 
SOOWNA NEW @ CO OODNAUE WIN 8 OD NAME WN 0 OD NAUE WR | OOONAUE WN OUOWONOUS 

= 

oO 

wn 

t 


fae lw ewe lel eel ale al el al al alelololelololeoleoleolelewleleleoleleleleleleleleleoleleleleleleleleleleleleleleolalelelolola) 
Rw QOD ODODOOO00 O00 OOOO OOO O00 00 09 09 09 09 09 09 09 09 SI NSINSI NIN SIN NINA AAO O 


D.ADPDPEDPDP_DP_ PDP DPD DPE DEDEDE DE DED DEDEDE VPP SV SVP SV SVS VTS TST SVS TSS VSS ISIS ISIS 
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= 74 o V04-00 Page 15 | 
- ODE DAP MESSAGE 16-SEP-1984 1: :3 AX/VMS M 13, 
vet i CNP MSG = DECODE CONFIGURATION MESSAGE ~SEP-1984 gti ‘48 FRAL. SRCIF LDECODE .MAR; 1 | 
1D 621 | 
1p 3 § Set status flag pertaining to the type of operating system being used at the | 
iS ? ¢ 3 3; remote node. 
ip ° 9)- } 
1b 6 a SASESHDAPSK RITIO en : Type of remote operating system: | 
1D 3 5 og i RT-11 | 
51 631 0$- ; RSTS/E | 
a8 6 § 708- ; eet=}i3 | 
IDS 63% bos : RSX-11D (classified as IAS) | 
SID o3¢ 80$- ; IAS 
01 63 10$- : VAX/VMS | 
O1D 639 40$- ; bk ib | 
bp $38 i 008- 3 Undefined | 
OID 640 100$- : roped tte A - | 
01D3 big Los : TOPS-20 1 2050/2060 front end) | 
1 64 90$- ; P/OS 
O13 644 208- : VAXELAN | 
wri ag airs 649 108: See TBIT PDAPSV_VAXVMS, (ROD Set VAX/VMS system flag | 
whee OIER ak 208: SSETBIT #DAPSV_VAXELAN, (R9) Set VAXELAN system flag | 
wes: $503 30 30$: SSETBIT #DAPS$V_TOPS10,(R9) Set TOPS-10 system flag | 
mone $509 35 40$: SSETBIT #DAPS$V_TOPS20,(R9) ; Set TOPS-20 and COPOS11 system flag | 
yates $50r $36 50S: SSE TBIT #DAPSV_RT11,(R9) Set RT-11 system flag | 
ee 1 836 60$: SSE TBIT ADAPSV.RSTS, (RO) : Set RSTS/E system flag 
R ; s oe 
sek dk $518 $36 70$: sserert #DAPSV_RSX, (RI) nsysten tag RSX-11M, and RSX-11M-PLUS 
wit 0931 geo 80$: SSETBIT #DAPSV_IAS,(R9) ; Set IAS and RSX-11D system flag 
ree 0 ; $68 90$: SSETBIT HDAPSV_P_0S, (R9) ; Set PO/S system flag | 
ir Fi 0986 $6 100$: BRW EXIT_SUCCESS ; Message syntax is correct | 
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SAGE =SEP=1984 73 AX/VMS Macro V04-00 
ATTRIBUTES MESSAGE =SEP-1984 t tit 45 UPALLSRCIPALDECODE.MAR; 1 


~SBTTL ATT_MSG = DECODE ATTRIBUTES MESSAGE 


Page 


p++ 
; Decode the operand fields of the Attributes message. 


ATT_MSG: ; Code segment of mainline 


: For optional fields, apply default values as appropriate. 


MOVB #DAPSK_DATATYP_D wt DATATYPE (R9) 

MOVB #DAPSK-ORG_D ,DAP P$B_ORGTRI) 

MOVB #DAPSK_RFM_D,D apse. Or aCR9D 

NOVW —HDAPSK“BLS- D:DAP WBLS(R9) 

MOVB #DAPS$K~BS2- _D.DA BS (R9) 

MOVAQ (R9),DAPSQ- ~RONSYSeZiR ) ; Initialize descriptor 


Process the attributes menu field (optional). 
Each bit set denotes that its associated field follows in the message. 


ASSUME DAP$V V~ORGe] EB DA pe are. ORG 


ASSUME 


MOVAB veEXIT _SUCCE 
STORE FIELD ATTMENU 
CHE CK"MASKS ATIM 
MOVAB” W*ERROR_FORMAT,R8 
(R6) , AP 


oR8 ; ALL done if end-of=negeape 
U.4.K_EXT ; Save attributes menu field 

4 ; Validate bit options 

; Specify transfer address on EOM 


: Copy menu to scratch register 
#0,#DAPS$V_SBN+1,AP,RO 


MOVL ° 
ATT_LOOP: 
FF Get position of next bit set 


SCLRBIT 48 AP ; Clear menu bit just found 
PUSHAB B*ATT ; Push return Bee. on stack 
SCASEB SELECTORS RO ; Next fie 
DISP ,oe . 
$ DATATYPE 
20$- ORG 


FA 
ve 


G 


FALDE CODE = DECODE DAP MESSAGE 16-SEP-1984 01:42:3 AX/VMS Macro V04-00 P 
vOse000 ATT_MSG = DECODE ATTRIBUTES MESSAGE ety 7 14832 URAL SRCIFALDECODE MAR: 1 a 
74 726 30$- ; REM 
74 = =725 40$- 3; RAT 
7% 67 § 50$- ; OS 
7% «67 § $- 3; «MRS 
74 = 728 $- ; =ALQ1 
74 = 729 8 $- ; BKS 
74 «730 0$- : $2 
74 «6731 100$- 7 MRN 
74 7? ; 1998- 3 RUNSYS 
7% «67 1 $- 3; DEQI 
74 «734 150$- ; FOP1 
74 = =—735 198° : 832 
74 «=6—736 150$- ; DEV 
74 «6737 ERROR_FORMAT= ; Reserved 
0274 738 170$- gy LAL 
0274 739 180$- ; HBK 
0274 740 190$- ; EBK 
0274 741 4 ; «FFB 
0274 oe 10$- ; SBN 
0274 7% > : 
0 ry: 744 BRw EXIT_SUCCESS ; Message syntax is correct 
BT 
0245 747 : Process each field specified in the menu (optional). 
O2A5 748 ; 
BEA? 749 
02A5 750 40S: STORE_FIELD RAT,1,K_EXT ; Save record attributes field 
bSa5 53! sue CK RAGES RAT,1 ; Validate bit options 
e 738 50$: STORE FIELD BLS,2,K_FIX > Save block size field 
C3 £33 60$: STORE FIELD MRS,2,K_FIX + Save maximum record size field 
6 C3 137 708: STORE_F ELD ALQ1,4,K_IMG  ; Save allocation quantity field 
8 8 123 80$: STORE _FIELD BKS,1,K_FIX : Save bucket size field 
0 DS Pe) 90$: STORE_FIELD FSZ,1,K_FIX + Save fixed control area size field 
0 ee 768 100$: STORE_FIELD MRN,4,K_IMG > Save maximum record number field 
9 E3 765 110$:  STORE_FIELD RUNSYS,8,K_IMG,<M_DESC> 
7, £66 ; Save descriptor of run-time 
EA 76 3; system string 
EA 768 RSB : 
Fe 188 120$: SIpee LF IELO DEQ1,2,K_FIX ; Save default extension quantity field 
FS 771 130$:  STORE_FIELD FOP1,4,K_EXT  ; Save file options field 
FA 12 CHECK MASKS FOP,4 ; Validate bit options 
89 774 108 STORE _FIELD DATATYPE 1,K_EXT: Save data Fype field 
OF 103 CHECK MASKS DATATYP, { : Validate bit options 
1? 79 208: STORE_FIELD ORG,1,K_FIX : Save file organization field 
1C ire ASSUME DAPS$K_SEQ EQ 9 
1¢ =. 780 ASSUME DAPSK_REL EQ 16 


FALDECODE - DECODE DAP MESSAGE 16-SEP-1984 01:42:3 AX/VMS Macro V04-00 S 
(04-500 ATT_MSG = DECODE ATTRIBUTES MESSAGE g- SEP=-1984 gti a: LRAL SRCIFALDECODE. MAR; 1 ag 
if q ASSUME DAPSK_IDX EQ 32 
66 9 eR TSTB (R6) ; Check for valid val 
Sef Ose Sb: BEQL 25 S branch if a 
10 88 91 785 CMPB (R6) ,#DAPSK_REL 3; Check for valid value 
0 13 7 § BEQL ; Branch if o 
20 66 91 7? CMPB (R6) ,#DAPSK_IDX ; Check for valid value 
9s 13 or 8 BEQL ; Branch if ok 
5 11 pea BRB ATT_INVALID ; Branch on error 
05 C 790 eos: RSB 3 
44! OS: STORE _FIELD RFM,1,K_FIX ; Save record format field 
§ 4 138 ASSU DAPSK_UDF EQ 0 
0334 794 ASSUME DAPSK_FIX EQ 1 
8 4 795 ASSUME DAP$K_ EQ § 
; 4 79 ASSUME DAPSK_VFC EQ 
0334 79 ASSUME parek EQ 4 
83 4 798 ASSUME DAPSK_STMLF EQ 5 
be r 444 ASSUME DAPSK_ STMCR EQ 6 
06 66 91 tte 801 CMPB ine) are 1 _STMCR 3; Check for valid value 
45 1A 335 a6 BGTRU T_INv ; Branch if out-of-range 
05 0339 # 80 RSB 3 
O33A 804 140$:  STORE_FIELD BSZ,1,K_FIX ; Save byte size field 
05 0341 #805 RSB 3 
bag 806 150$: STORE_FIELD DEV,4,K_EXT 3 Save device characteristics field 
0s Oeee 44 CHECK. MASKS DEV,4 : Validate bit options 
0s 0386 4 170$: STORE_FIELD LRL,2,K_FIX : Save longest record length field 
05 ba7E He 180$: giant 7 tee HBK,4,K_IMG : Save highest virtual block number 
3 e 
0s bace e1$ 190$ STORE FIELD EBK,4,K_IMG 3; Save end-of-file block number field 
ba96 15 200$: STORE_FIELD FFB,2,K_FIX : Save first free byte in EOF block 
05 037 1g R : field 
0376 17 210$: STORE_FIELD SBN,4,K_IMG ; Save starting logical block number 
05 037D 18 RSB ; field 
gE BS 
6 43 f 1 : Branch here on exception condition. 
6 7E : rf 
8 7E : 4 ATT_INVALID: g ; 
OSAB O31 7E 5 BRW ERROR_INVALID ; Branch aid 


I 4 
FALDECODE = DECODE DAP MESSAGE 16-SEP=1 1:4 38 AX/VMS Macro V04-00 P 
vOe-000 ACC_MSG = DECODE ACCESS MESSAGE ~3Eb=]982 81:4 FAL.SRCJFALDECODE.MAR;1 
-SBTTL ACC_MSG = DECODE ACCESS MESSAGE 
3+ 
: Decode the operand fields of the Access message. 
ACC_MSG: ; Code segment of mainline 


; For optional fields, apply default values as appropriate. 
Note: The default value for the DISPLAY field is applied after the ACCFUNC 
: field is processed. 


4209 02 90 MOVB #DAPS$K fAC _D,DAP$B_FAC(R9) 
43.09 00 90 MOVB #DAPSK~SHR7D.DAP$B~SHR(RI) 
48 a9 «669~—s7E MOVAQ (RS), ttt “FILESPEC+4(R9) ; Initialize descriptor 
5409 69 7E MOVAQ (R9).DAP$Q~ -PASSWORD+4(R9) ; Initialize descriptor 


: Process the access function field (required). 


58 O91D'CF 9E MOVAB W*ERROR_FORMAT,R 3; Specify transfer address on EOM 


STORE_FIELD “ACCrUNE | 1,K_FIX ; Save access function field 
ASSUME DAPSK_OPEN EQ 1 


UB 
ASSUME DAPSK-EXECUTE EQ 8 


SCASEB SELECTOR=(R6),- ; Check for valid value 


SANNA AAA AAA AAA MMMM BBR ERR EE EWA OE 
= OOD NAN EWN SO OD NAME WIN HO ODNAUEWNOODNOUEWNR—OOON OM 


BA ASE=#DAPSK _OPEN- : 
DISPL 3; Function: 
3; SOPEN 
10$- 3; SCREATE 
0$- 3 SRENAME 
- 3; SERASE 
RROR_INVALID=- ; Reserved 
$- 3 ereccery list 
$- 3 ubmit command file 
4 20$- : Execute command fil 
0578 = «31 1 BRW ERROR tie} S : Value ou'-of-ran ngs 
01 60 75 108: MOVW #DAPSA_D : Apply detault DISPLAY value 
4C Ad DAPSW_ DISPLAY (Rg) > per ACCFUNC value 


8 : Process the access options and filespec fields (required). 


€0090090909.09.090000 Gd Go G9 0 00 0d 0d 09 C9 Gd 09 Od OD OD OD Gd CD CD CD Cd Cd Od Od OD CD Cd OD OD Gd Cd 09 CD 09 OD C9 GD. C9 CD CD OD CD CD CD CD CDCD0D0D 
COCO NN~S 
—Oo ~O 


§ 20$: ; ELD ACCOPT,1,K_EXT ; Save access options field 


ACCOPT,1 ; Validate bit options 


ALOR EOE 
v04-000 
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DAP MESSAGE 16-SEP-1984 01:42:3 AX/VMS Macro V04-00 Page 
DECODE ACCESS MESSAGE gr SEF =18 4 gt 3g LRAL SRCIFALDECODE MAR; 1 ° 
4 STORE _F IELD FILESPEC,8,K_IMG,<M_DESC> 
5 3; Save descriptor of file 
§ 3 specification string 
: Process the file access and file sharing fields (optional). 
91° 
3 MOVAB W*EXIT_SUCCESS,R8 ; All done if end-of-message 
9 STORE _FIELD FAC,1,K_EXT ; Save file access field 
94 CHECK_MASKS FAC,1 ; Validate bit options 
95 STORE_FIELD SHR,1,K_EXT 3; Save file sharing field 
38 CHECK_MASKS SHR,1 ; Validate bit options 
98 ; 
+44 ; Process the display and password fields (optional). 
901 ° 
Ong STORE _FIELD DISPLAY1,2,K_EXT; Save display attributes field 
90 CHECK_MASKS DISPLAY, ; Validate bit options 
904 STORE_FIELD PASSWORD ,8,K_IMG,<M_DESC> 
905 ; Save descriptor of password string 
On8 JMP (RB) ; Message syntax is correct 
908 ; 
202 ; Branch here on exception condition. 
911 ° 
aig ACC_INVALID: 3 
91 BRW ERROR_INVALID ; Branch aid 


9) 
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CONTROL MESSAGE Seer e8e BT Fgi28 FA MSE Hpero von el, «= Page a, 


-SBTTL CTL.MSG - DECODE CONTROL MESSAGE 
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ges 
; Decode the operand fields of the Control message. 


ee ee eee 


CTL_MSG: ; Code segment of mainline 
For optional fields, apply default values as appropriate. 


4C Ad =669—o7E MOVAQ (R9),DAPSQ_KEY+4(R9) ; Initialize descriptor 


: Process the control function field (required). 


58 O91D'CF 9E MOVAB W*ERROR_FORMAT,R8& : Specify transfer address on EOM 


STORE_FIELD “CTLFUNC, 1,K_FIX ; Save control function field 


ASSUME DAPS$K_GET_ READ EQ 1 
ASSUME DAPS$K-CONRECT EQ 2 


WDOO0000000000000000000000000000.00.0-.0 

BRR RRR RES FWWWWWWIIInonononorononononund = OO 

OO NOUS WN OO OONAU EWN OOONOUSWN—OODNOUW OM 
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PRR R RRR RRP RRR PPR PPR PPP PPR RRP R RRR RPP PPR RPP RPP PP PPP PPP RPP RE 
a a et ed ed dd od od od = = OOOO OOOO OOOCOOOOOOOOO 


DEAE AA AAA AAA AAAA AAA AAA AAAAAAAAAAAAAAA HS SS YS PS POOP AAAOAOAAAAS 


ASSUME DAPSK_UPDATE EQ 3 
ASSUME DAPS$K_ WRITE E 
ASSUME DAPSK_DELETE EQ 
ASSUME DAPS$K-REWIND EQ 6 
ASSUME DAPS$K-TRUNCATE EQ 7 
ASSUME DAPSK_RELEASE EQ 9 
ASSUME DAPSK_FREE EQ 10 
ASSUME DAPS$K-EXTEND B EQ 11 
ASSUME DAPS$K_FLUSH EQ 12 
ASSUME DAPSK_FIND EQ 14 
ASSUME DAPSK_EXTEND E EQ 15 
ASSUME DAPS$K-DISPLAY EQ 16 
950 ASSUME DAPSK-SPACE_FW EQ 17 
32) ASSUME DAPSK_SPACE_BW EQ 18 
388 SCASEB SELECTOR=(R6)- ; Check for valid value 
954 BASE=#DAPSK_GET_READ-  ; 
955 DISPL=<- : Function: 
329 10$- ; $GET or SREAD 
95 10$- 3 SCONNECT 
928 10$- ; SUPDATE 
95 10$- : SPUT or SWRITE 
960 10$- ; SDELETE 
961 10$- : SREWIN 
306 10$- 3; STRUNCATE 
96 GRROR_INVALID~ 3; Reserved for SMODIFY 
+44 193 3; SRELEASE 
see + ; SEXTEND (beginning message of seq) 
ace FoeOR UNSUPPORT= ; Reserved for SNXTVOL--was defined 
3 + ; SFIND 
970 10$- 3 SEXTEND (ending message of seq) 
971 10$- 3 


L 4 | 
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PALF CODE = DECODE DAP MESSAG 19 36-138 Oi 4¢: 8 AX/VMS Macro V04-00 Page $6 
v04-000 CTL_MSG = DECODE CONTROL MESSAGE SEP=-19 1:16:4 FAL.SRCJFALDECODE .MAR; 1 ( 4 
416 378 198° 3; SSPACE (forward) 
419 97 10$- 3 SSPACE (backward) 
4 aoe > ; Reserved for checkpoint-file function 
43€ 75 ; Reserved for recovery-get function 
43€ af8 ; Reserved for recovery-put function 
O4EB 31 04 ; 97 BRW ERROR_INVALID ; Value is out-of-range 
ie 
441 980 Process the control menu field (optional) 
441 981 ; Each bit set denotes that its associated field follows in the message. 
ny 
See} 3 4 ASSUME DAP$V_RAC+1 EQ DAP$V_KEY 
0441 985 ASSUME DAPSV_KEY+1 EQ DAPSV_ hap 
0441 986 ASSUME DAPS$V_KRF+1 EQ DAP$V_ROP 
Reed + 44 ASSUME DAP$V_ROP+2 EQ DAPS$V_DISPLAY2 
er} ++ ASSUME DAP$V_ ~DISPLAY2+1 EQ BAP Sy _BLKCNT 
58 O945'CF 9E 0441 990 108: MOVAB W*EXIT_SUCCESS,R8 ¢ ALL done if end-of-message 
0446 991 STORE _FIELD CTLMENU,2,K_ EXT ; Save control menu ttete 
044D 99 CHECK_MASKS CTLMEN 3; Validate bit option 
58 O91D'CF 9E 0455 99 MOVAB ¥ sores FORMAT,R 3 Speci fy transfer oadress on EOM 
5¢ 66 3C Reen 4 cn. aes (R6),A ; Copy menu to scratch register 
50 5C O07 00 EA 045D 996 a FFS #0, #DAPS$V_BLKCNT+1,AP, RO; Get position of next bit set 
0462 997 S$CLRBIT ; Clear menu bit just found 
F4 AF QF 0466 998 PUSHAB BACTL : Push return address on stack 
0469 999 SCASEB SELECTOR= RO- 3; Next field: 
0469 1000 DISPL=< 3 
0469 1001 - : RAC 
0469 16 0$- ; «(KEY 
0469 1004 108. : ROP 
gt) 1983 Eieen.ronmat= = g Meserued 
0469 1997 Ie : BLKCNT 
04C7 =31 Beek 1908 BRW EXIT_SUCCESS : Message syntax is correct 
O47E 1011 ; 
Oe7e 10ig 3; Process the fields specified in the menu (optional). 
47E 1014 ° 
f43 : 12 108: STORE _FIELD RAC,1,K_FIX ; Save record access field 
4 : 1 i ASSUME DAPSK_SEQ_ACC EQ 9 
4 1 18 ASSUME DAPSK-KEY_-ACC EQ 
485 19) ASSUME DAPSK_RFA_ACC } | 
485 1020 ASSUME DAPS$K_SEQ FILE EQ 3 
485 1021 ASSUME DAPS$K"BLK-VBN EQ 4 | 
rf 5 ' § ASSUME DAPSKIBLK-FILE EQ 5 | 
05 66 91 Q6 : 1024 CMPB (R6) ar -BLK_FILE ; Check for value too high 
3D MA 488 1025 BGTRU CTL {Nv ; Branch on error | 
488 1 5 20$: STORE_FIELD KEY,8,K_IMG,<M_DESC> | 
492 1028 ; Save descriptor of key string 
| 
| 


<7 
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FALDECODE = DECODE DAP MESSAGE 16-SEP-1984 01:42:3 AX/VMS Macro V04-00 Page 23 FA 
V0%~000 CTL_MSG = DECODE CONTROL MESSAGE etsy B4i48:45 URAL. SRCJPALDECODE MAR: 1 ’ (10) v¢ 
05 138 1029 RSB ; 
05 #33 } 9 30$: BLORE FI: Dd KRF,1,K_FIX ; Save key of reference field 
498 1 : 40$:  STORE_FIELD ROP,4,K_EXT ; Save record options field 
05 ry: ! ? a tata ROP ,4 ; Validate bit options 
GAF 1035 608: STORE _FIELD DISPLAY2,2,K_EXT; Save display attributes field 
os 3uBe 1036 CHECK MASKS DISPLAY, 2 ; Validate bit options 
4BF 1 8 708: STORE _FIELD BLKCNT,1,K_FIX : Save block count field 
05 3 1 RSB : 
4C7 1040 
4C7 1041 ; 
4C7 1 i: ; Branch here on exception condition. 
4C7 1045 ; 
407 1044 
4C7 pee CTL_LINVALID: ; 
0462 31 O4C7 1046 BRW ERROR_INVALID ; Branch aid 
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~SBTTL CON_MSG - DECODE CONTINUE TRANSFER MESSAGE 


i 
; Decode the operand fields of the Continue Transfer message. 


=a a a 


Process the continue transfer function field (required). 


5&6 O91D'CF 9E MOVAB W*ERROR_FORMAT,R8 : Specify transfer address on EOM 


ON_MSG: ; Code segment of mainline 
STORE FIELD “CONFUNC, 1 oK_FIX ; Save continue transfer function field 
| 


PRRRR RRR RRR RRR RRR PRR PRR PPR RE 
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06 
$08 ASSUME DAPS$K_RETRY EQ 1 
064 ASSUME DAPS$K=SKIP ree 5 §° 2 
065 ASSUME DAPS$K_ orT 
066 ASSUME DAP$K_RESUM ef Fo 4 
+t4 ASSUME DAPS$K— QUIT EQ 5 
66 «695 069 TSTB 3; Branch if value is 
08 13 070 BEQL CON sy ALID 3 too low 
05 66 91 071 CMPB (R6) MDABSK QUIT : oF 
03 1A 0 07g BGTRU CON_INV : too high 
0463 = 31 8 th BRw EXIT_ RyCrESs 3 Message syntax is correct 
04 075 : 
04 076 ; Branch here on exception condition. 
04 077 ; 
04 078 
04 079 : 
0447 31 04 080 BRW ERROR_INVALID ; Branch aid 


CON_INVALID: : 


" 
BS | 
F ALDECODE - DECODE DAP MESSAGE SEP=1984 01:42:3 AX/VMS Macro V04-00 Pa 5 
v04-000 CMP_MSG = DECODE ACCESS COMPLETE MESSAGE i at 7 grit a: YRAL SRCIFALDECODE. MAR; 1 - db 
rt ! § -SBTTL CMP_MSG = DECODE ACCESS COMPLETE MESSAGE | 
4E 1084 ;++ 
rt ! 5 : Decode the operand fields of the Access Complete message. | 
4E5 1 5 . 
Bees | 3 LMP_MSG: ; Code segment of mainline 
Sees 4091 § For optional field ly default val i 
: For optiona elds, a efau alues as appropriate. 
OcE5 1098 : a : as 
RL JRE. cenere are no detouts to apply 
3 ere are no defaults to a 
GES 1095 wy 
04E5 1938 3 
Q04E5 1097 ; Process the access complete function field (required). 
O4E5 1098 ; 
04E5 1099 
58 O91D'CF 9E O4E5 1100 MOVAB W*ERROR_FORMAT,R8 ; Specify transfer address on EOM 
O4EA 1101 STORE_FIELD | “CMPFUNC,1,K_FIX ; Save access complete function field 
O4F 1 1103 ASSUME DAP$K_CLOSE EQ 1 
O4F1 1104 ASSUME DAPSK_RESPONSE fa 2 
O4F1 1105 ASSUME DAPSK_RESET EQ 
O4F1 1106 ASSUME DAPSK_DISCONN EQ 4 
O4F1 1107 ASSUME DAPSK_SKIP_FILE EQ 5 
O4F1 1108 ASSUME DAPSK_CHANGE_B EQ 6 
O4F1 1109 ASSUME DAPSK_CHANGE_E EQ 7 
pee 1317 ASSUME DAPSK_TERMINATE EQ 8 
66 95 O4F1 1316 TSTB (R -¥ : Branch if value is | 
28 «13 «O4F3 (111 BEQL CMP_INVALID ; too low | 
08 66 91 OFS 1114 CMPB CROy ADAP SK. TERMINATE 3; (Or 
26 «1A = 04FB 1115 BGTRU CMP_INV : too high 
O4FA 1116 
O4FA 1117; 
O4FA 1118 ; Process the file options field (optional). 
O4FA 1119 ; 
O4FA 1120 
58 O0945'CF 9E O4FA 1121 MOVAB W*EXIT TOE aK ie ; ALL done if end-of-message 
O4FF 1156 STORE_FIELD FOP XT ; Save file options field | 
0506 11 CHECK_MASKS FOP, 3; Validate bit options 
Bas 188 
031 17 8 > Process the CRC checksum field (optional). | 
512 1128 ° 
3] 11 § STORE FIELD CHECK ,2,K_FIX ; Save CRC checksum fie 
b219 1130 SSE TBIT. saps X_CHECK,= ; Denote field explicitly “ERE vat 
519 1131 AP$B_X_FIELD(R9) i (to distinguish between CRC value 
OS1E 11 ¢ : of zero and none specified 
68 17 at 1} ? JMP (R8) ; Message syntax is correct 
520 1135; 
1 § ; Branch here on exception condition. 
520 1138 ° 
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E 16-SEP-1984 Bis +38 ives Macro V04-00 Page ¢ 
TA MESSAGE “SEP-1984 01:16:4 FAL.SRCIJFALDECODE.MAR; 1 ( 


-SBTTL DAT_MSG = DECODE DATA MESSAGE 
p++ 
; Decode the operand fields of the Data message. 


DAT_MSG: ; Code segment of mainline 


: For optional fields, apply default values as appropriate. 


MOVAQ (R9),DAPSQ_FILEDATA+4(R9) ; Initialize descriptor 


Process the record number field (required). 


Note: Since there is no menu for the Data message (an unfortunate oversight 
in the DAP spec), this field must be present. However, it is necessary 
to distinguish between receiving a null value and a zero value, so that 
it can be determined whether the RECNUM field overrides the KEY field. 
To solve this problem, the DAP spec states that a byte count of zero 
for this image field means that no value has been specified. l.e., 
<byteO = 0> means ignore field, whereas <byte0 = 1 and bytel = 0> means 
a value of zero overrides the KEY field value. 


MOVA W*ERROR_FORMAT,R8 ; Specify transfer address on EOM 
ADDL #1,R11,AP ; Mark address of next byte + 1 
STORE_FIELD RECNUM1,4,K_IMG ; Save record number fie 

CMPL R11 ; Branch if this image field was 


BEQLU 108 ; exactly one byte Long Fite 
SSETBIT #DAP$V_X_RECNUM,- ; Denote field explicitly specified 
DAP$B_X_FIELD(R9) ; in message 


Process the file data field (optional for zero length record). 


CESS,R8 : All _ done if end-of-message 
LEDATA,8,K_ROM,<M_DESC> 
; Save descriptor of user data string 
; (the record/biock just received) 
JMP (R8) ; Message syntax is correct 


10$: MOVAB  W*EXIT_SUC 
STORE _FIELD FI 


= DECODE DAP MESSAGE 16=SEP=1984 01:42:32 VAX/VMS Macro V04-00 Page 28 | Fy 
vives KEY MSG = DECODE KEY DEFINITION MESSAGE g- SE b= 19 4 Bhi ‘28 LPAL SRCIFALDECODE. MAR; 1 aay v¢ 
4F 1187 -SBTTL KEY_MSG = DECODE KEY DEFINITION MESSAGE 
eB 
4F 1190 : Decode the operand fields of the Key Definition message. 
ag i 
54F 1198 KEY_MSG: ; Code segment of mainline 
st 18 
B2er 1138 : For optional fields, apply default values as appropriate. | 
F 1 . 
68 Ao =669—o7E it 1138 MOVAQ (R9),DAPSQ_KNM+4(R9) ; Initialize descriptor | 
0553 1201 ; 
3 P the key menu field (optional). 
035 08 : Each bit set denotes that its associated field follows in the message. | 
1205 ° 
hae 1 06 ASSUME DAPS$V_FLG+1 EQ DAPSV_DFL | 
055 1207 ASSUME DAPS$V_DFL+1 EQ DAPSV_IFL 
0553 1208 ASSUME DAPS$V-IFL+1 EQ DAP$V~NSG 
0553 1209 ASSUME DAPS$V_NSG+1 EQ DAPS$V_REF 
0553 1210 ASSUME DAPS$V_REF+1 EQ DAPSV_KNM 
0553 1211 ASSUME DAPS$V_KNM+1 EQ DAP$V_NUL | 
0553 1 \§ ASSUME DAP$V_NUL+1 EQ DAPSV_IA 
O328 121 ASSUME DAPS$V_IAN+1 EQ DAPS$V_LAN 
0553 1214 ASSUME DAPS$V_LAN+1 EQ DAP$V_DAN 
0553 1215 ASSUME DAPS$V_DAN+1 EQ DAPS$V_DTP 
0383 1216 ASSUME DAPSV_DTP+1 EQ DAPS$V-RVB 
055 1317 ASSUME DAP$V_RVB+2 EQ DAPS$V_DVB 
tet 1218 ASSUME DAP$V_DVB+1 EQ DAP$V_DBS 
0553 1219 ASSUME DAP$V_DBS+1 EQ DAP$V_IBS 
0553 1220 ASSUME DAP$V_IBS+1 EQ DAPSV_LVL 
0553 1221 ASSUME DAP$V_LVL+1 EQ DAP$V_TKS 
0333 A ASSUME DAPSV_TKS+1 EQ DAPSV~MRL 
, “EXIT CESS,R8 ; ALL done if end-of-message 
S 0333 : 3 STORE FIELD ~SREYMENG ¢,K_EXT 3; Save key definition soma tetd 
$808 : 5 SOUABy  USERROR FORMAT RE Sestie teamalee cameues on EOM | 
. V * . + Specify 
" get 66 6 0370 : 8 ane eso R6),AP™ : Copy menu to scratch register | 
‘ F ’ MRL+1,AP,RO  : Get position of next bit set 
ne oe BEB tna : Eleaf Rena Dit Just found 
HA “K ; Push return 
aes art : : SCASEB SELECTOR=RO- : Next field: 
S7F 1234 DIP nce : 
aE 1536 Os: : OOF | 
3tf 1539 $5. > TFL | 
S7F 1 40$- : NSG, POS, SIZ 
a 1388 33 te 
3a 1241 ite > NUL 
S7F 124 te ; ~=IAN 
S7F 1 2g $- ; LAN 


FALDECODE = DECODE DAP MESSAGE 16*SEP=1984 01:42:32 VAX/VMS Macro V04-00 Page 29 
vives KEY_MSG = DECODE KEY DEFINITION MESSAGE mise 1 ERT EEE: LRAL SRCIFALDECODE MAR: 1 : fay | 
Ha 193 oe 
$7 1 a6 120$- ; RVB | 
7F 124 haga ; Reserved 
S7F 1248 rh ; OvB 
S7F 1249 150$- ; DBS | 
57F 1250 ot 5.6 6163 
Boer 1 2] 170$- ; Vi 
S7F 4 ¢ + 5 6TKS 
AR SE Net _ | 
0399 =«31 0549 1255 BRw EXIT_SUCCESS ; Message syntax is correct 
AB 
Saag 1258 ; Process each field specified in the menu (optional). | 
Be 13S 
OSAC 1261 108: STORE _FIELD FLG,1,K_EXT ; Save key options field 
0 b283 ! 6¢ 5us CR ASKS FLG,1 ; Validate bit options | 
05 b284 : ee 208: STORE_FIELD DFL,2,K_FIX : Save data bucket fill quantity field | 
0s Berg ! 66 30$: STORE .FIELO IFL,2,K_FIX : Save index bucket fill quantity field | 
O5CA 1268 40$:  STORE_FIELD NSG,1,K_FIX : Save number of key segments field 
52 66 9A 05D1 1269 MOVZBEC (R6),R2 ; Use number of segments as loop count | 
2C 613°) «©0504 «1270 BEQL 47$ ; Branch if zero 
08 52 di O506 1271 CMPL Re #8 ; Check for value too high 
28 1A 0509 1 if; BGTRU 49$ 3; Branch on error 
50 4C AY 3€ O5DB 127 MOVAW DAP$W_POS(R9),RO ; Get address of POS array 
51 5C Ad «9E «O5DF «127% MOVAB DAP$B~SIZ(R9).R1 : Get address of SIZ array 
07 BB OSE3 1275 45$: PUSHR #*M<RO,R1,R2> ; 
O5E% 1 id STORE_FIELD POS_TMP,2,K_FIX ; Find next key segment size field 
01 BA SEC 127 POPR #*M<RO> : 
80 66 80 beet 1 oe MOVW (R6), (RO)+ ; Save it in array 
01 BB O5F1 127 PUSHR  #*M<RO> ; | 
5F3 1280 STORE_FIELD SIZ_TMP,1,K_FIX ; Find next key segment size field 
07 BA OSFA 1 81 POPR ~ #*M<RO,R1,R2> ; | 
81 66 99 SFC ‘ MOVB  — (R6) , (R1)4 ; Save it in array 
E1 52 fe bane ! o 473 pupetn R2,45$ ; Branch if more segments to go 
rr 43 0608 1985 C98: BRB KEY_INVALID : Branch aid 
0 Os0¢ ' § 50$: STORE _FIELD REF ,1,K_FIX ; Save key of reference field 
$05 1 8 60$:  STORE_FIELD KNM,8,K_IMG,<M_DESC> 
0614 1 ; Save descriptor of key name string 
28 466 91 0614 1290 CMPB (R6) ,#40 3; Check for string too long 
68 1A 0617 1291 BGTRU  KEY_INVALID : Branch on error 
20 66 91 0619 1 36 CMPB (R6Y #32 ; Check for string too long 
66 Ae aie ! 37 perey KEY_INVALID ; Branch on error | 
os out 95 70$ STORE _F IELD NUL, 1,K_FIX > Save null key character field | 
0 ? ? ' 4 80$ STORE FIELD 1AN,1,K_FIX : Save index area number field | 
, ' + 90$: STORE _FIELD LAN,1,K_FIX : Save lowest level index area number | 
: fi 
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EAL OR EQDE = DECODE DAP MESSAGE 16-SEP-1984 1:48:38 ypasvas Macro Vv04-00 Page 30 
v04-000 KEY_MSG = DECODE KEY DEFINITION MESSAGE -SEP-1984 01:16:4 FAL.SRCJFALDECODE.MAR; 1 (14) | 
05 06 § 1301 RSB 3 
05 ? f | § 100$: STORE_FIELD DAN,1,K_FIX ; Save data area number field 
oF 4 110$:  STORE_FIELD DTP,1,K_FIX : Save key data type field 
eh 1 § ASSUME DAPSK_STG EQ 
646 1 ASSUME DAP$K"IN2 EQ 
646 1308 ASSUME DAPSK_BNe EQ § 
646 1309 ASSUME DAPS$K_ING EQ 
646 1310 ASSUME DAPSK_BN4 EQ 4 
646 1311 ASSUME DAPS$K_PAC EQ 5 
eh 1 \¢ ASSUME DAPSK=INE EQ 
eh ! 17 ASSUME DAPS$K_BN8 EQ 
07 66 91 Ogee 1315 CMPB (R6) ,#DAPS$K_BNB ; Check for value too high 
39 1A 0649 1 16 BGTRU KEY_{NVALID : Branch on error 
05 648 131 RSB : 
0 oof : 8 120$: STORE_FIELD RVB,4,K_IMG ; Save root bucket start VBN field 
0s th ! Y 140$:  STORE_FIELD DVB,.4,K_IMG : Save first data bucket start VBN field 
0s Dees ! § 150$: STORE_FIELD DBS,1,K_FIX : Save data bucket fill size field 
05 see i : 160$: STORE_FIELD IBS,1,K_FIX : Save index bucket fill size field 
. 066¢ 13 6 170$:  STORE_FIELD LVL.1,K_FIX > Save Level of root buckets field 
0s 0674 13 3 180$: STORE_FIELD TKS,1,K_FIX + Save total key size field 
perk 13 0 190$: STORE_FIELD MRL,2,K_FIX : Save minimum record length to contain 
05 set ! 4 RSB : key field 
0684 1 3§ 3 
Bose } 35 ; Branch here on exception condition. 
0684 1336 ° 
0684 1332 KEY_INVALID: : ; 
02A5 31 0684 1338 BRW ERROR_INVALID ; Branch aid 


H 5 
FALE CODE - DECODE DAP MESSAGE 1 “36071386 134 36 ere By o V04-00 
v04-00 ALL_MSG = DECODE ALLOCATION MESSAGE -SEP-1984 01:1 FAL.SRCIJF LDECODE. MAR; 1 
? , } 9 -SBTTL ALL_MSG = DECODE ALLOCATION MESSAGE 
687 1 tg p++ 
, } rf ; Decode the operand fields of the Allocation message. 
4 ; t2 ad MSG Cod f mainli 
é ? ‘} MSG: ; Code segment of mainline 
4 ! ‘3 For optional fields, apply default values as appropriate. 
687 1 i / 
? 4 ! 26 : <there are no defaults to apply> 
0687 1354 : 
be 7 1355 ; Process the allocation menu field (optional). 
ont ! 2$ : Each bit set denotes that its associated field follows in the message. 
des? 1358 ° 
0687 1359 ASSUME DAP$V_VOL+1 EQ DAP$V_ALN 
0687 1360 ASSUME DAP$V— -ALN+1 EQ DAPSV_ AOP 
bea 1361 ASSUME DAP$V_AOP+1 EQ DAP$V~LOC 
687 1 ¢ ASSUME DAP$V_LOC+2 EQ DAP$V~ALQ2 
0687 136 ASSUME DAP$V~ALQ2+1 EQ DAPSV_AID 
0687 1364 ASSUME DAPS$V_AID+1 EQ DAP$V_BKZ 
st t4 : 2? ASSUME DAP$V_BKZ+1 EQ DAP$V_DEQ2 
58 O945'CF 9 $687 1367 MOVAB W*EXIT_SUCCESS,R8 ; ALL done if qnén-otwacasone 
peas 1368 STORE _FIELD ALLMENU, eK EXT ; Save allocation menu field 
0693 1369 CHECK_MASKS ALL : Validate bit options 
58 O91D'CF 9E 0698 1370 MOVAB W*ERROR_FORMAT, R : Specify transfer address on EOM 
SC 66 3C Des : 4 7 PO ies (R6),AP~ ; Copy menu to scratch register 
50 5C 09 00 EA Q6A3 1 5g - FFS #0, #DAP$V_DEQ2+1,AP,RO Get position of next bit set 
6A8 1374 SCLRBIT ; Clear menu bit just found 
F4 AF QF OQ6AC 1375 PUSHAB B*“ALL_LOOP ; Push return address v... tack 
O6AF 1376 SCASEB SELECTORS RO- ; Next field: 
O6AF 1377 DISPL=<- : 
O6AF 1378 0$- ; VOL 
6AF 1379 0$- : ALN 
6AF 1 0 0$- 3; AOP 
6AF 1381 40$- : LOC 
6AF 1 Ht ERROR_FORMAT- : Reserved 
6AF 1 ta : ALQ2 
6AF 1384 $- ; «AID 
6AF 1385 80$- : BK2 
6AF 1 $ 90$- : DEQ2 
OAF 1 > : 
027d =+31 th i 8 BRW EXIT_SUCCESS ; Message syntax is correct 
6C8 1390; 
oC ' 8 3; Process each field specified in the menu (optional). 
6C8 1393 ° 
6C8 1394 108: STORE _FIELD VOL,2,K_FIX ; Save volume number field 
ae , 


FALDECODE = DECODE DAP MESSAGE 16-SEP-1984 01:42:53 AX/VMS o V04-00 Page 3 
Hives ALL_MSG = DECODE ALLOCATION MESSAGE ety 7 Te ig YRC eR SR cj? (DECOD E.MAR;1 ° (15) 
600 1397 ASSUME DAPSK_ANY EQ 
D0 1 98 ASSUME DAPS$K“CYL EQ 
DO 139 ASSUME DAPSK-LBN EQ 
600 1400 ASSUME DAPS$K_VBN EQ 
rt 12 1 ASSUME DAPSKIRFI EQ 4 
600 14 : 208: STORE _FIELD DAP aK: o1,K FIX ; Save alignment options field 
03 $6 91 0607 1404 CMPB ~ (R6),# veN~ : Check for value too high 
7 se gba 1082 a" Us ALLL [NVAL ; Branch on error 
60D 1209 308: STORE _FIELD AOP,1,K_EXT > Save allocation options field 
05 ROE e 1298 CHECK. MASKS AOP,1 ; Validate bit options 
we ore 1410 408: STORE FIELD LOC,4,K_IMG ; Save starting location field 
0s Bere 1216 60$: STORE FIELD ALQ2,4,K_IMG : Save allocation quantity field 
0s 0708 Vale 70$: STORE_FIELD AID,1,K_FIX Save area identification field 
- 9708 1416 80S: STORE _FIELD BKZ,1,K_FIX ; Save bucket size field 
070B 1418 90$: STORE_FIELD DEQ2,2,K_FIX ; Save default extension quantity field 
05 0712 1419 RSB : 
gre 8? 
071 14 gi ; Branch here on exception condition. 
gre tse 
071 1425 ALL_INVALID: : 
0216 31 07135 1426 BRwW ERROR_INVALID ; Branch aid 
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7 
7 
7 
7 
7 
? 
7? 
7? 
7? 
? 
? 
? 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
4 
4 
4 
4 
& 
4 
* 
4 
4 
4 
5 
; 


6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
A 
: 
A 
E 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
6 
6 
6 
6 
6 
6 
D 
D 
Dd 
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mo 


SA of 
DAT 


o 


ep 


TIM_MSG: 


BRW 


CODD OD ODO SIN NNN DDD DDD DDD DS TT BS Be BB BE EE PWIA on COO 
PA A OOD NA NEW 0 OD NA UNE WIN O OD NIA UE WIN 2 O ODNAU EWN OODNOUE WN O0Oe Om 


10$:  STORE_FIELD 


E AND TIME MESSAGE 
~-SBTTL TIM_MSG = DECODE DATE AND TIME MESSAGE 


: Process the date and time 
Each bit set denotes that 


> 
EXIT_SUCCESS 


100$ 


~SEP=1984 :3 AX/VMS Macro V04-00 
~SEP=-1984 B14 248 EPAL SRCJFAL DEC ODE .MAR; 1 


; Decode the operand fields of the Date and Time message. 


; Code segment of mainline 


: For optional fields, apply default values as appropriate. 


: <there are no defaults to apply> 


menu field (optional). 
its assoc lated field follows in the message. 


ASSUME DAP$V_CDT+1 EQ DAPS$V_RDT 
ASSUME DAP$V_RDT+1 EQ DAP$V_EDT 
ASSUME DAP$V_EDT+1 EQ DAPSV_RVN 
ASSUME DAPS$V_RVN+1 EQ DAPS$V_BDT 
ASSUME DAP$V_BDT+1 EQ DAP$V_PDT 
ASSUME DAPS$V_ PDT+1 EQ DAPS$V— ADT 
MOVAB W*EXIT_SUCCESS,R8 : ALL done if ee Pe 
STORE _FIELD TIMENU,2,K_EXT : Save date and time menu field 
CHECK_MASKS TIMENU, : Validate bit options 
MOVAB “ERROR_FORMAT ,R8 ; Specify transfer address on EOM 
TIM_LOOP. MOVZWL R6),AP~ 3; Copy menu to scratch register 
MOVL #18,R3 : Declare size of time (CDT, RDT, etc.) 
: fields containing ASCII st rings 
FFS #0, #DAP$V_ADT+1,AP,RO : Get position of next bit set 
acunel 3; Clear menu bit just foun 
PUSHAB B*TIM : Push return address on stack 
SCASEB SELECTORS RO : Next fie 
DISPL=<- 3 
10$- : COT 
0$- 3; «ROT 
0$- 3; «6EDT 
40$- 3 RVN 
50$- 3; BDT 
8 $- 3; POT 
$- 3; ADT 


; Message syntax is correct 


: Process each field specified in the menu (optional). 


CDT,8,K_FIX,<M_SRCR3!M_DESC> 


3; Save _cescriptor of creation 
; date and time string 


g 5 
FALDECODE - DECODE DAP MESSAGE 16-SEP-1984 01:42:3 AX/VMS Macro Vv04-00 Page 34 
VO%-600 TIM_MSG = DECODE DATE AND TIME MESSAGE ~$FO 1382 gti 38 FRAL SRCJPALDECODE MAR; 1 ° ig) 
75F 1485 208: STORE_FIELD RDT,8,K_FIX,<M_SRCR3!M_DESC> 
£66 1? § 3 Save descriptor of revision 
; date an me strin 
2c 11 (0766 1488 BRB ‘1008 . 
768 1489 30$: STORE_FIELD EDT,8,K_FIX,<M_SRCR3!M_DESC> 
76F 1490 3; Save descriptor of expiration 
76F 1491 ; date and time string | 
23.—=ié(ltz rer 1436 BRB 100$ : 
0s 44! 1337 40$: STORE FIELD RVN,2,K_FIX 3 Save revision number field 
ae 1495 50$:  STORE_FIELD BDT,8,K_FIX,<M_SRCR3!M_DESC> 
7 8 1438 3; Save descriptor of backup 
7 149 ; date and time string 
12 11 O07 1498 BRB 100$ : 
0782 1499 60$: STORE_FIELD PDT,8,K_F1IX,<M_SRCR3!M_DESC> 
07 1500 ; Save descriptor of physical creation 
0789 138) ; date and time string 
09.11 Bf 9 15 § BRB 100$ : 
788 1503 70$: STORE_FIELD ADT,.8,K_FIX,<M_SRCR3!M_DESC> 
0792 1504 ; Save descriptor of accessed 
{a 1505 ; date and time string 
00 11 0792 1506 BRB 100$ 3 
0794 1507 
0794 1508 ;+ 
14 1509 ; This sequence converts an ASCII time string into a 64-bit VMS binary time 
794 1510 ; value. Note that the 64-bit result is stored in the quadword descriptor 
Bo 8c 131) 3 pointing to the time string on input. 
0794 1313 : DAP defines network standard time as an 18 byte gqunted ASCII string in the 
794 1514 ; format ‘‘dd-mmm-yybhh:mm:ss'’, whereas VMS uses a 25-byte ASCII string in the 
794 1515 ; format ‘‘dd-mmm-yyyybhh:mm:ss.cc’’. 
0794 1516 :- 
794 1517 
5E 20 C2 0794 1318 100$: SUBL2 #<24+8>,SP ; Allocate space from stack 
18 AE 17 DO 0797 151 MOVL #<1842+$>,24(SP) : Form descriptor of buffer to receive 
1C AE SE 00 0798 1520 MOVL SP,28(S ; altered ASCII string 
6— 0486 07 28 O79F 1521 MOVC3 #7,84(R6),(SP) 3; Copy bytes 1-7 of input strin 
360 «661—Cis*79'1 7A4 «(15 § CMPB (R1) ,#*A\6\ ; Compare decade against base decade 
07 IA O7A7 15 BGTRU 110$ ; Branch if ‘70 = *99 
7A9 1526 ; Else it’s ‘00 - '69 
83 3032 8F BO O7A9 1525 MOVW #*A\20\, (R3)+ : Insert missing century digits 
0S 11 O7A 1 § BRB 120$ 3; Continue 
8 3931 8F 8 780 1 110$: MOVW #*A\I9O\, (R34 ; Insert ates ing century digits 
6 61 0B 7B 13 g 120$: MOVC3 #11,(R15, (R3) : Copy bytes 8-18 of input string 
83 2030302E 8F DO 07B9 1 MOVL #*A\.00 (,(R3)+ : Add hundredths of second digits 
rte 1 0 ; Note R3_now points to time descriptor 
03 AE 0 A 07C0 1531 BICB a*x 8 7tSh) 3 Upcese 3-digit month string 
04 AE 0 A O7C4 15 ; BICB #*X20,4(SP) ; because SBINTIM objects to 
05 AE 0 708 15 BICB #*x20,5(SP) ; lowercase month 
7CC =(1534 SBINTIM_S- : Convert ASCII time to binery 
7cC =—1535 TIMBUF =(R3)- ; Address of descriptor of ASCII string 
ree 1 § TIMADR=(R6) ; Address of 64-bit result value 
5E 8 CO O7D7 1 ADDL2 #<24+8>,SP ; Deallocate space from the stack 
01 50 Fe 7DA 1 3 BLBC RO, TIM_INVALID ; Branch on conversion error 
5 O7DD 1 RSB ; Exit 
1540 | 
1541 ; | 
| 
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; Branch here on exception condition. 


ERROR_INVALID ; Branch aid 


; 
E 16-SEP-1984 01:42:3 AX/VMS Macro V04-00 Pa 3 
OTECTION MESSAGE mitt 7 8:18:45 UPALLSRCIPALDECODE MAR; 1 i G9) 


-SBTTL PRO_MSG = DECODE PROTECTION MESSAGE 


FALDECODE - DEC 
vou-000 PRO_M 


; Decode the operand fields of the Protection message. 


PRO_MSG: ; Code segment of mainline 
3 For optional fields, apply default values as appropriate. 
4C AQ «669 —so7E MOVAQ (R9),DAPSQ_OWNER+4(R9) ; Initialize descriptor 


Process the protection menu field (optional). 
Each bit set denotes that its associated field follows in the message. 


E 

D 

: +4 

4 

5 

6 

V4 

8 

9 

0 

4 

é 

7 ASSUME DAP$V_OWNER+1 EQ DAPS$V_PROSYS 

8 ASSUME DAP$V_PROSYS+1 EQ DAPS$V_PROOWN 

9 ASSUME DAPS$V_PROOWN+1 EQ DAPS$V_PROGRP 

, ASSUME DAPS$V_PROGRP+1 EQ DAPS$V_PROWLD 

58 O945'CF 9E § MOVAB W*EXIT_SUCCESS,R8 3; ALL done if ong~et~oeesegs 
STORE _FIELD PROMENU,2,K_EXT ; Save proection menu fiel 

4 ASKS PROMENU, ; Validate bit options 

5 W*ERROR_FORMAT,R ; Specify transfer address on EOM 

§ MOVZWL (R6),AP Copy menu to scratch register 

8 

9 

0 

4 

5 

6 

7 

8 

9 

0 

4 

0 

4 


#0. #DAPSV_PROWLD+1 ,AP,RO: Get position of next bit set 


58 O91D'CF 9E 
5C 66 


50 5C 05 00 EA 
F4 AF OOF 


SCLRBIT RO Clear menu bit just found 


A 
SHAB B*PRO_LOOP Push return address on stack 


me el ed ad et  — — —  —  — — — — — —) — —) — 4 — —) —d —) 2d 2d Sd > = oo so ss as © a as a Ss ss SS mwvo 


CDW LID POUIMMMMMMmODOCCVCCTTS PO | MO— PW MUIIIIIIINIUTIUT Ul 


5 

5 

5 PU : 

5 SCASEB SELECTOR=RO- ; Next field 

5 DISPL=<- 3 

58 10$- : OWNER 

58 a 3: PROSYS 

58 0$- ;  PROOWN 

58 40$- 3 PROGRP 

23 < 50$- ; PROWLD 

0127 ~=—31 + 28 BRW EXIT_SUCCESS : Message syntax is correct 
1 91 ; 
el 33 3; Process each field specified in the menu (optional). 
1E 159% ° 
; 595 10$:  STORE_FIELD OWNER,8,K_IMG,<M_DESC> 
59 ; Save descriptor of file owner string 
28 «666 — = 91 4 9 CMPB (R6) ,#40 ; Declare an error if owner string 

2c iA ; BGTRU PRO_INVALID : is too long 

600 208: STORE_FIE D PROSYS,2,K_EXT ; Save system protection field 
19 11 6 RB 0$ ; 
— ? 30$: STORE_FIELD PROOWN,2,K_EXT ; Save owner protection field 

604 40$:  § STORE_FIELD PROGRP.2.K_EXT ; Save group protection field 


Fae 
v04-000 


00D3 


oO 
w 


31 


OOCOCGOOCOOOCOOCOOOCSO “YO 
Coco COCO CUCOUCOCOCOCUCOCDOUCSCUCDCD OO 


DVS ES ES EE 
POAARAASAOMOVVTVTVTITNS 


P MESSAGE a tt eb Oi 34 +36 pens vas Macro V04-00 
ECODE PROTECTION MESSAGE “-SEP-1984 01:16:4 FAL.SRCJFALDECODE.MAR; 1 
1605 BRB 100$ 3 

! § 508: STORE FIELD PROWLD,2,K_EXT ; Save world protection field 
1608 ; 

1609 ; Perform common validity checks on data in the protection field being 
1610 ; processed. 

1 

1818 100$: CHECK_MASKS PROTECT,2 ; Validate bit options 

1614 RSB ; 

1615 

1918 ; : 

\olt ; Branch here on exception condition. 

1619 © 

1960 PRO_INVALID: ; 

1621 BRW ERROR_INVALID ; Branch aid 


am 


B 6 
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E MESSAGE “SEP=1984 01:16:4 FAL.SRCJFALDECODE.MAR; 1 (18) 


-SBTTL NAM_MSG = DECODE NAME MESSAGE 


Ft 39 = DECODE DA 
v04-000 NAM_MSG = D 


oO 
oz 
om 
mun 

“ 
z2> 


p++ 
; Decode the operand fields of the Name message. 


NAM_MSG: ; Code segment of mainiine 
For optional fields, apply default values as appropriate. 

48 A9 69° TE MOVAQ (R9),DAPSQ_NAMESPEC+4(R9) ; Initialize descriptor 
Process the name type field (required). 


58 O91D'CF 9E MOVAB W*ERROR_FORMAT,R8 ; Specify transfer address on EOM 


STORE_FIELD | “NAMETYPE,1,K_FIX: Save the name type field 


: Process the name field (optional). 


SOOOCOCOCOCOOCOCOCOCCSCOOOCOCO OOOO OCOCOCOOO OOOO OOOOOOOOoOO 
0.090900 00 09 09 02 09 C0 C9 09 0D 0 0D CD 00 00 09 0D CD GD GD 0D 0D OD CD CN CD CD CO CO CO CD CD CD CD CDODOD 

ONIN NNN SSSI NA AA AAAA A MIMI IIIA IU Un 
OVI O VFO VTVDW OMIM OWOWOWOONMTCVUTTVTT OOWOVOWOOVOOOOOWOO 

— et tt td = a = 2 = = 8 8 2 2 SS = 2 = ts YS ss 8 mo 
PAEAEAASAAAAAAAA AAA AAAAAAHOHAAAA AAA AAAOCOOCOOAO 

feat * al Sak ahah sh shah al ah al ealeal oP or oe oe or rr er le eee ee 

M—OVOONAUES WN 0 OONOA UE WWIR (OO ONAUE WN" OVOONOULS Ww 


58 O945'CF 9 MOVAB W*EXIT_SUCCESS,R8 ; ALL done if end-of-message 
STORE_FIELD NAMESPEC,8,K_IMG.<M_DESC> 
; Save descriptor of name 
: specification string 
80 8F 66 91 CMPB (R6) ,#128 ; Check for string too long 
02 1A BGTRU NAM INVALID ; Branch on error 
68 17 JMP (RBY ; Message syntax is correct 
3; Branch here on exception condition. 
NAM_INVALID: : 
OOAC 31 BRW ERROR_INVALID ; Branch aid 


Hat 3 
v04-000 


ma 
Oo 
SOOONA UNE WIN (CO OODNA UE WN 0 OONA ME WWM $$ O OD NAME WN OC OONAOUES WN OVOONOUS wm 


SOOOGOOOCOCOOCOSCOOSOSOOOOCOOCOCOOCOOCOGOOOOOCOCOCOSCOCOOOSOO SOOO OOOOOOOOCOOOO | 
ro 
o,> 

vw 
= 


C 6 
AGE -SEP-1984 01:42:3 AX/VMS Macro V04-00 Pa 39 
RE NEXT FIELD ROUTINES -SEP-1984 ¢ Bt: 18:38 PRAL SRCIFALDECODE MAR: 1 3 (19) 


~SBTTL STORE_FIELD - STORE NEXT FIELD ROUTINES 


; Functional Description: 


STORE_FIELD invoked from the STORE_FIELD macro results in the execution 
of one of the following routines: 


STORE_EXT interprets the next field of the DAP message as an 
extensible field of 1 to 1 bytes and stores the data portion of 
he field in the Sclowseed field of the DAP control block. 


STORE_FIX interprets the next. field of the DAP message as 
fixed length field of 1 to 255 bytes and stores the String. in the 
designated field of the DAP control block. 


STORE_IMG inter . ghe next field of the DAP message as an 
image field o bytes and stores the data portion of the 
field in the EAB. field of the DAP control block. 


STORE_ROM interprets the _next field of the DAP message as a 
binary field of 1 to 65535 bytes consisting of the rest of t 
message and stores the string in the designated field of Ay DAP 


C200 00 Co: CoCOCOCOCROCOCOCDCDCDCS «6—"O 
000909 00 CO CD COCO COCO CDCR CD CD CDCDODODODODODCDOD In 


COOOCOCOCOSOOCOCOCOOCO OOOO OOOCOCOOCOSOO COSCO SOSOSOOOS OOOCOOCOOCOOCOOOOOOOO 


R10 Address of last byte + 1 of DAP message being parsed 
R11 Address of next byte of DAP message being parsed 


In-line coded arguments: 


0 Cd Cd Cd Gd Od Cd CD C0 OD CD CD Cd OD Od G9 OD 00 CO 09 C9 CD CD CD CoCo 


control block. 

: ; Calling Sequence: 

8 BSBW STORE_FIELD 

3 

8 R3 Size in bytes of source field iff V_SRCR3 set and field is in 
8 fixed Length forma 

8 R8 Address o peuxtan’ to execute if end-of-message encountered 
4 R9 Address of DAP control block 

8 

8 

8 

8 

8 


ByteO Size in bytes of the destination field in DAP control block 

Bytel Offset of destination field in DAP control block 

Byte DAP field seont tier (used to build DAP ap sects, code on error) 
e 


size is larger than DST field size 
Size of SRC field is in R3 
(applicable only if K_FIX specified) 


Byte Control_byte to direct processing of DAP 

Bits Q-3:. Format of source field: 
K_EXT= “x00 : Extensible field format 
K-FIX= “x01 : Fixed length field format 
K-IMG= “x0 : Image field format 
K-ROM= “x0 ; Rest-of-message field format 

Bits 4-7:~ : Field processing flags: 
M_DESC= *x10 : Store only descriptor “of SRC field 
M-TRUNC=*X20 ; Truncate extra bytes if SRC field 
M_ ) o 


a ee ae ed ee ee ed ee ee ee ee ee ee ee a ee ee ee cd ee ee ed ce a ee ee ee a ee ee et ee eh ee a ee ee eB a ee ee ed ee ee ee ee 
NNSA AAA AAA AAA AAAAA AAA AAP AAAS AOAAAAAOAAOAOAOO 
MR  @ MQOQOODODOOO0 OOO OOOO OOO 0000 00 09 0909 09 09 09 09 SI NIN NINN NIN INIA AAA 


000000000 60 00 00 G9 C0 00 Cd G9 00 00 Co 
000000000 00 00 09 Co Go 00 Cd CD 00 Gv CO 


| 

| 

| 

; } 
; | 
| | 
Input Parameters: 
; | 
| 
Implicit Inputs: | 
i 


dD 6 


| 
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Mivetitd STORE_FIELD = STORE NEXT FIELD ROUTINES ests Pi Bhi ‘28 YRAL SRCJPALDECODE_MAR; 1 . (19) | 
None | 
Output Parameters: 
RO-RS5S Destroyed 
R Address of destination field in DAP control block 
R Field ID value 
8 R8-R10 unchenged 
4 R11 Updated next byte pointer 
Implicit Outputs: 
4 The specified field of the DAP control block is updated. 


Completion Codes: 
None 
Side Effects: 


If end-of-message is encountered, control is given to the specified 
action routine. 


If a parse error is detected, control is given to an appropriate 
error routine. 


Be Se Ge Se Be Se Be Ge Ge Be Se Ge Ge Se Ge Ge Ge Se Ge Se Se Se Se Se Se Se Se Ge Se Se Se 


STORE_FIELD: :; Entry point 


: Obtain the in-line coded arguments, check for end-of-message, and transfer 
3 control to the appropriate routine. 


OOD NAUE WN 0 ODA EWN O OONAU EU (OOODNOULS WN Hw 


PDP IPs Be Be ES BE BE WIN nnnonononononn 


se ensept ten exit described above, leaves the return address on the 
stack. 


CDOOSSOOCOCOSCOSCOCOCOOCOOSCOOCOOCOOOCSOOCOOCOOOOCOSOOOCOOOOCOCOOOOOOOOOOOOOOOOOO 
‘Cd OD Od Od Cd CD CD Cd Od CD 09 Cd 9 CD OD C9 OD OD CD Od OD OD OP OD COD CD C9 CD 0D CD CD CD CDCD 

tata iad ii ada ad aba ad adaddadad Ia dada ad ad oad edad ad ababadbab added ad eadadad adadadad 

SN 


50 6E 00 OVL (SP) ,RO ; Get address of in-line arguments 
55 80 9A 1 MOVZBL (RO)+,R5 ; Get DST field size 
56 80 9A 6¢ write (RO)+,R6 ; Get DST field offset 
56 59 C0 6 ADOL R9,R6 ; Compute DST field address 
57 BO oO9A 64 MOVZBL (RO)+,R7 : Get DAP field ID value 
52 QO 9A 65 MOVZBL (RO)+,R2 ; Get control byte value 
6E 0 00 089 66 MOVL RO, (SP) ; Bump return address past argument List 
5A 5B ODI 9 6 CMPL R14,R10 ; Is there at least one byte left? 
11 «18 9 08 BGEQ 10$ ; Branch if end-of-message | 
51 52 04 00 EF 9A 8 EXTZV #0,#4,R2,R1 ; Get index of routine 
9F 1770 SCASEB SELECTOR=R1- ; Dispatch on field format: | 
OF 71 DISPL=<- 3 
OF i STORE_EXT=- ; Extensible 
oF 7? STORE _F IX- ; Fixed Length 
oF 74 STORE_IMG- : image 
of § - STORE _ROM- ; Rest-of-message 
AB rs 108: JP (R8) ; Jump to designated EOM routine 


FALE CODE - DECODE DAP MESSAGE 1 mits S14 36 ree Macro V04-00 Page 41 | 
v04- STORE_EXT = STORE EXTENSIBLE FIELD -SEP-1984 01:16:4 FAL.SRCJFALDECODE .MAR; 1 (20) | 
AD 1779 LSBITL STORE_EXT = STORE EXTENSIBLE FIELD | 
AD 17 ° p++ 
AD 17 ¢ ; This routine interprets the next_field of the DAP message as an extensible 
AD 1785 ; field of 1 to 16 bytes where bit? of each byte determines whether to 
AD 1784 ; continue (1) the field to the next byte or to terminate (0) the field. 
AD 1785 ; First, the source field is compressed in a work area (i.e., bit? of each byte 
AD 17 § ; is discarded and the remaining bits are squeezed together). Then, the 
AD 1787 ; compressed string is copied to the specified destination field in the DAP 
AD 1788 ; control block. 
AD 1789 ;-- 
AD 1790 
AD 1791 ASSUME DAPSK_TEMP GE 16 | 
O8AD 1738 
Q8AD 1795 STORE_EXT: ; Code segment of STORE FIELD 
54 0090 C9 9E OB8AD 1794 MOVAB DAPSL_TEMP(R9) ,R4 ; Get address of scratch work area 

50 04 0882 1795 CLRL RO ; Initialize bit position index 

53 D4 0884 1796 CLRL R : Initialize byte count 

5B D1 0886 1797 10$ CMPL R11,R10 : Error if end-of-message is reached 

9¢ 18 0889 1798 BGEQ ERROR_FORMAT ; _before end-of-field is reached 

5 D6 08BB 1799 INCL Ri : Increment byte count 

53 D1 08BD 1800 CMPL R3,#16 ; Branch if SRC field is longer than 

5B 1A O8CO 1801 BGTRU ERROR_FORMAT ; scratch work area 

68 FO pate 1306 INSV (R11) ,RO,#7,(R4) : Copy lower 7 bits of next byte 

07 CO O8C? 180 ADDL2 4#7,R0 ; Update bit pqettien index 

07 €O0 O8CA 1804 BBS #7,(R11)+,10$ ; Loop if field extends to next byte 

00 =6FO pace 1982 INSV #0,RO,R3,(R4) : lero fill rest of SRC field 

28 11 O8D3S 1807 BRB MOVE _FIELD ; Copy string to DST fie 


(1 bit for each byte sqreressed 
| 
| 


F 6 
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v04-000 STORE_FIX = STORE FIXED LENGTH FIELD -SEP-1984 01:16:4 FAL.SRCJFALDECODE .MAR; 1 
DS 1809 ~SBTTL STORE_FIX = STORE FIXED LENGTH FIELD 
oo 
D5 (1 \§ ; This routine interprets the next field of the DAP message as a fixed Length 
0805 18135 ; field of 1 to 255 bytes and copies the string to the specified field in the 
08D5 1814 ; DAP control block. 
Be 1815 ;-- 
dS (1 16 
DS 1817 STORE_FIX: ; Code segment of STORE_FIELD 
03 38 06 £0 08D5 1818 BBS #V_SRCR3,R2,10$ ; Branch if SRC field size is in r3 
5 55 DO 08D9 1819 MOVL R5,R3 ; DST field size = SRC field size 
01 53 01 tts 1820 10$ CMPL R3,#1 ; Branch if field is longer than 
07 1A O8DF 1821 BGTRU STORE_IMG1 : one byte 
66 8B 90 O8E1 18 ¢ MOVB (R11)#, (R6) 3 Store field in DAP control block 
05 O8&4 18 RSB 3 Exit 


FALDECODE = DECODE DAP MESSAGE 195 Ee- 1 38e 01 9e: 38 orth? Macro v04-00 Page 43 | 
v04-000 STORE_IMG = STORE IMAGE FIELD “SEP-1984 01:16:4 FAL.SRCJFALDECODE.MAR; 1 (ce) | 
ES 1825 -SBTTL STORE_IMG = STORE IMAGE FIELD 
ae 
3 
E5 1828 ; This routine interprets the next field of the DAP message as an image field 
ES 1829 ; of 1 to 256 bytes where the first byte contains a count of the number of 
Ee 1 9 ; data bytes to follow. The data portion of the field is copied to the 
; } : specified field of the DAP control block. | 
5 3 : 
i 1834 STORE_IMG: ; Code segment of STORE_FIELD } 
53 8B 9A : ] 5 stone meee (R11)+,R3 ; Get byte count of SRC field Tl 
54 58 DO ER 1 > -““MOVL = R11, R4 ; Copy address of data tring yi 
000C 5B 3 Bien EB 1 8 ACBL R10,R3,R11,MOVE_FIELD ; Ok if <R3+R11> LEQ <R10> — 
2A 0(11—«OOBF1 1 BRB ERROR_FORMAT ; Error if not enough bytes in | 1 
O8F3 1840 > message to contain field v- 
| v: 
| 
| PS 
| $/ 
FA 
Ph 
Ir 
Cc 
oe 
: 
Ps 
Cr 
As 


H 6 
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v04- STORE_ROM = STORE REST OF MESSAGE =SEP-1984 01:16:4 FAL.SRCIJFALDECODE.MAR; 1 (23) 
: ! 4 -SBTTL STORE_ROM = STORE REST OF MESSAGE 
F 1844 ;++ | 
FS 1845 ; This rour ing interprets the nev.t field of the DAP message as a binary field 
‘> 4 6 ; of 1 to 65555 bytes consisting of the rest of the message. The string is 
: ! ‘3 3; copied to the specified field of the DAP control block. 
F3 1849 * 
F3 1850 STORE_ROM: 3; Code segment of STORE_FIELD 
Ss -M- SB USS F3 1851 SUBL3) R11,R10,R3 : Compute SRC field size 
ro 58 4 F7 1 26 MOVL R11,R4 : Copy SRC field address 
B SA OD 4 ! 2? MOVL R10,R11 3; Advance next byte pointer to EOM 
FD 1855 ; 
8 FD 1 2$ 3; <R3,R4> contains descriptor of SRC field, and 
FD 1857 ; <R5,R6> contains cescripter of DST field 
By He 
O8FD 1860 MOVE_FIELD: ; Copy SRC field to DST field with 
O8FD 1861 ; zero fill 
18 52 50 O8FD 1306 BBS OY DES - Re -DESCRIOTOR ; Branch if only descriptor desired 
66 55 00 64 £53 0901 186 MOVCS R3,(R4),40,R5,(R ; Move field to DAP control block 
0907 1864 BLEQU 208 ; Done if all SRC bytes are copied 
0909 1865 ; (i.e., SRC size LEQU DST size) 
52 6€ 0909 1866 MOVL (SP) ,R2 ; Get address of control flag 
4445 1867 ; parameter + 1 (i.e., return address) 
07 FF A205 90C 1868 BBS #V_TRUNC,-1(R2),20$ ; Done if extra bytes are to be 
0911 139) ; truncated; note: 
0911 1870 RO = # unmoved bytes : 
0911 1871 ; _R1 = address of unmoved string 
81 0911 1376 10$: TSTB (R1)+ ; Error if any unmoved bytes are 
+ 0913 187 BNEQ ERROR_UNSUPPORT non-zero 
F9 50 0915 1874 SOBGTR RO,108 ; Continue until all extra bytes 
0918 1875 are checked 
bars 1876 20$: RSB ; Exit 
919 1877 DESCRIPTOR: ; DST field is a descriptor 
66 «8653 0919 1878 mMOVva R3,(R6) ; Store only quadword descriptor 
091C 1879 RSB of SRC field and exit 


—— 
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vivestitd ERROR AND SUCCESS EXIT ROUTINES mi iae ts 1 Shi ‘48 LPAL SRCIFALDECODE MAR: 1 . (24) 
910 } ~SBTTL ERROR AND SUCCESS EXIT ROUTINES 
91D 1 p++ 
91D 1884 ; Message peree has failed. 
314 ! é ; Build DAP Status message and exit to caller. 
91D 1887 ° 
91D 1888 ERROR_FORMAT: ; Format of message in incorrect 
08 90 0910 1889 MOVB #DAPS$_FORMAT,- ; Return MACCODE value 
1B A9 91F 1890 DAPS$B_DCODE MAC (R9) 3 
01 10 A9 01 0921 1891 CMPL DAP$Q_MSG_BOF2(R9),#1 ; Check for one=byte message 
>. iw 3 1 35 BNEQ ERROR_ COMMON 3; Take common path if not 
57 08 9A Q9 189 MOVZBL #DAP$_FLAGS,R7 ; Change to flags field ID code 
O92A 1894 ; because format error was caused 
88 A 1895 3 by no flags field in message 
10 11 Q92A 1 38 BRB ERROR_COMMON ; Take common path 
92C 1897 ERROR_INVALID: ; Field of message has invalid value 
09 90 O92C 1898 MOVB #DAPS$_INVALID,=- ; Return MACCODE value 
1B A9 9 f 1899 DAP$B_DCODE MAC(R9) 3 
OA 11 09 1900 BRB ERROR_ COMMON ; Take common path 
09 § 1901 ERROR_SYNC: 3 Message received is out-of-sequence 
OA 90 O09 1308 MOVB #DAP$_MSG_SYNC,=- ; Return MACCODE value 
1B A9 0934 19 DAPSB-DCOBE MAC(R9) : 
046 «#171 3 1904 BRA ERROR_COMMOR 3; Take common path 
0938 1905 ERROR_UNSUPPORT: ; Field of message has unsupported value 
02 90 0938 12a8 MOVB #DAP$_UNSUPPORT,- ; Return MACCODE value 
1B A9 093A 190 DAP$B_DCODE_MAC(R9) : 
093C 1908 ERROR_COMMON: 3; Common error exit sequence 
19 AD 57 90 QO93C 1909 MOVB R7,DAP$B_DCODE _FID(R9) ; Return ID of field in error 
18 AD «94 0940 1910 CLRB = DAPSL_DCODE_STS(R9) : Indicate failure 
16 11 0943 1911 BRB EX1T_COMMON ; Join common exit code 
O9¢8 1918 s+ 
Baek 1914 ; Message parse has been successful so far, ... 
3; Make additional va ty checks. 
945 1915 ; Make additi l Lidi heck 
See Haig i 
$348 1313 EXIT_SUCCESS: ; Enter here on successful parse 
57 00 9A 0945 191 MOVZBL #DAPS ‘pee! ; Set field ID to ‘unknown’ 
5A 5B D1 0948 1920 R11,RT ; Branch if there are any unparsed 
D0 12 0948 1921 BNEGQ = ERROR_FORMAT : bytes left in DAP message 
1A AQ GAs (94D 19 § MOVZBL DAPS$B_DCODE_MSG(R9) RO ; Get DAP message type ; 
1c a9 «= 50S s«sE1—« 095119 BBC RO,DAPSL_MSG_MASK(R9),- ; Branch if this is not a valid 
dC 955 1924 ERROR_SYNC ; message to receive 
a8 188 
320 + j 3; Check for system specific fields in message header. 
956 1909 ° 
38 AD sO $36 1930 TSTL DAP$Q_SYSPEC(R9) ; Any system specific fields? 
4A 12 0959 1931 BNEQ SSP_MINI_MSG ; If yes, process them 
38 18k | 
T+} 1? : 3; Update message descriptors in DAP control block. 
958 1936 © | 
958 19 $ EXIT_COMMON: ; Common exit sequence 
| 
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14 A 0958 1938 SUBL3 DAP$Q_MSG_BUF2+4(R9).- ; Compute size of message just parsed 
10 a9 SA 095E 1939 R10,DAP$Q-MSG_BUF2(R9) ; and store it in descriptor 
OC Ad) SA 961 1940 MOVL R10,DAP$Q_MSG_BUF1+4(R9); Store address of next (blocked) 
965 1941 ; _message in buffer to parse 
10 Ad 965 1306 SUBL2 DAPS$Q_MSG_BUF2(R9),- ; Store size of next (blocked) 
08 AY 968 194 DAP$Q_MSG_BUF1(R9) ; message in buffer to parse 
50 18 AD DO 096A 1944 MOVL DAPSL_DCOBE_STS(R9),RO ; Get return status code 
4 Q96E 1945 RET 3; Return to caller 
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VO% 500 CHECK_MASKS = VALIDATE FIELD BIT OPTIONS eet Bhi a: YRAL SRCJPALDECODE MAR; 1 ° (25) 
seh 1367 ~SBTTL CHECK_MASKS = VALIDATE FIELD BIT OPTIONS 
96F 1968 p++ 
oer 1329 3; Functional Description: 
96F 1952 : CHECK_MASKS invoked from the CHECK_MASKS macro examines the designated 
4 4 1988 : field for invalid and unsupported Bits set. . 
96F 1955 : Calling Sequence: 
EE ag gedbanresnaapite 
96F 1328 3 “< 
96F 1959 ; Input Parameters: 
96F 1960 ; 
96F 1961 ; RG Address of designated field in DAP control block 
444 1366 3 R Field ID value 
96F 19635 ; 
O96F 1964 ; In-Line coded arguments: 
O96F 1965 ; 
O96F 1966 ; ByteO Size in bytes of the designated field in DAP control block 
O96F 1967 ; Byten Mask of invalid bits (1-4 bytes; size specified in byte0) 
+444 1308 3 Bytem Mask of unsupported bits (1-4 bytes; size specified th byte0) 
O96F 1970 ; Implicit Inputs: 
O96F 1971; 
096F 1376 : None 
O96F 1973 ; 
O96F 1974 ; Output Parameters: 
O96F 1975 ; 
O96F 1976; RO-R1 Destroyed 
O96F 1977 ; R6-R7 Unchanged 
O96F 1978 ; 
O96F 1979 ; Implicit Outputs: 
O96F 1980 ; 
Boer 138) : The specified field of the DAP control block is validated. 
O96F 19 : 3; Completion Codes: 
O96F 1984 ; 
O96F 1985 ; None 
96F 1358 3 
96F 1987 ; Side Effects: 
96F 1358 3 
O96F 1989 ; If any invalid or unsupported bits are set, control is given to an 
O36 1390 : appropriate error routine. 
96F 1338 3 An exception exit described above, leaves the return address on the 
96F 1993; stack. 
96F 1994; 
96F 1995 ;-- 
96F 1338 
96F 1997 CHECK_MASKS: : Entry point 
50 6€ DO O96F 1998 MOVL (SP) ,RO ; Get address of in-line arguments 
51 80 9A Q9 1999 MOVZBL (RO)+,R1 ; Get DST field size — 
97 ? SCASEB SELECTOR=R1- ; Dispatch on field size: 
97 BASE=#i- 3 
97 § DISPL=<- 3 
97 0$- ; 1-byte 
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97 4 $- ; 2-bytes 
97 5 $5. 3 beror 
4 § ‘ 40$- 3; 4-bytes 
9A 11 0981 3 30$: BRB ERROR_FORMAT 3; Value is out-of-range 
80 66 93 0983 10$: BITB (R6), TRO)+ 3; Check for invalid bits 
AG te 9 6 10 BNEQ ERROR_INVALID : Branch on error 
80 6 9 :) 1 BITB (R6), TRO) + : Check for unsupported bits 
1 11 0988 BIg BRB 50$ : Join common 
80 66 8B 98D 2013 20$ BITW (R6), (RO) + 3; Check for invalid bits 
9A 12 0990 2014 BNEQ ERROR_INVALID : Branch on error 
80 66 8B 44 SI? BITW (R6), TRO)+ 3 Check for unsupported bits 
08 11 099 16 BRB 50$ ; Join common 
80 66 D3 0997 2017 40S: BITL (R6),(RO)+ 3; Check for invalid bits 
90 if 099A 2018 BNEQ = ERROR_INVALID : Branch on erro 
80 66 0d3 099C 2019 BITL (R6), TRO)+ ; Check for unsupported bits 
97 12 O99F 020 50$ BNEQ = ERROR UNSUPPORT : Branch on erro 
6— 50 00 O9A1 2021 MOVL RO, (SP) 3; Bump return eddress past argument List 
05 O9A4 2022 RSB 3 Exit 
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~SBTTL SSP_MINI_MSG = DECODE SYSTEM SPECIFIC FIELD 


ou 


Decode the system specific field found in the message header 
3 Treat it as the operand portion of a mini-message that has a menu field 
3 and related fields. 


SSP_MINI_MSG: 


9A5 e segment of mainline 
SA D O9A PUSHL R10 e en q-of-nessage + 1 address 
SA 38 A9 D O9A movae DAP$Q_SYSPEC(R9) ,R10 = size of syspec field 


SA 5B CO = address of end-of-fiel 


: se 
i Sa 
; RIO 
: R11 = address of start-of- field | 
anoLe R11,R10 3; R10 f d + 
FILL- : iqre, 
: in 


| 
4 
give 
0 
1 
033 
4 
é 
SAE $ $ZERO_ roses specific work area 
SAE 2038 DST=DAPS$SL_SSPWA(R9) - control block 
9A 039 SIZE=#DAPSK_SSPWA 
98 bes 
098 41 ; 
098 ok ; Process the system specific menu field (optional). 
bee Bez ; Each bit set denotes that its associated field follows in the message. 
0988 2045 
bees 838 ASSUME DAP$V_SSP_CAP+1 EQ DAP$V_SSP_FLG 
58 OAO6'CF 9E $988 048 MOVAB W*SSP_SUCCESS,R8 3; Specify transfer address on EOM 
09BD 2049 STORE_FIELD SSP MENU 2,K_EXT: Save system specific menu field 
09C4 2050 CHECK_M a Pp ; Validate bit options 
58 FF4D CF 9E O9CC 2051 VAB RROR_FORMAT, Naa 3; Specify transfer address on EOM 
5C 66 3C 09D1 b28 MOVZWL tres AP : Copy menu to scratch register 
09D4 2053 SSP_LOOP: 
50 5C 02 00 EA Q9D4 2054 #0, #DAPSV_SSP_FLG+1,AP, rb; Get position of next bit set 
0909 2055 $CLRBIT RO,AP ; Clear menu bit just found 
F4 AF QF O9DD 2056 PUSHAB B*SSP_LOO ; Push return address on stack 
09E0 TH4 $CASEB SELECTOR= RO- 3; Next field 
09E0 58 DISP Ls<- 3 
09EO 2059 ; SSP_CAP 
09EO 2060 20$- : SSP -FLG 
09EO 2061 > 
1¢ 11 O9E8 beg BRB SSP_SUCCESS ; ALL fields parsed 
O9EA 6 
O9EA 64 : 
Rpee rH 3; Process each field specified in the menu (optional) 
9EA 2067 | | 
S9EA oes 10$: STORE _FIELD SSP_CAP,4,K EXT, <M TRUNC> 
bor} 4 3; Save system specific capabilities 
05 O9F1 2070 $B : field 
bars 71 208: STORE_FIELD SSP_FLG,4,K_EXT ; Save system specific flags field | 
oF CHECK_MASKS SSP_FLG,4 ; Validate bit options 
05 OA0S 207 RSB ; 
A06 2074 
rt 75 ; 7 
re 3; System specific mini-message has been parsed successfully! 
A06 4 
A06 79 SSP_SUCCESS: H 
50 8EDO OA06 80 POPL RO 3; Throw away return address on stack 
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is “Bl Bh POPL R10 g Pestore address of poe-etuaqscoge + 1 
FF BRW EXIT_COMMON here because this rout 
AOF 


: was entered from EXIT _SUCCESS 
3; End of module 
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SSCOUNT 
ACC_INVALID 
ACC"M 

ALL INVALID 
ALL “LOOP 
ALL=MSG 
ATT_INVALID 
ATT-LOOP 


CHECK_-MASKS 


CMP_IRVALID 
CMP_MSG 
CNF_MSG 

CON~ INVALID 
CTL_INVALID 
CTL_LOOP 
CTL_MSG 
DAPSB_ACCFUNC 
DAP$B_ACCOPT 
DA D 


DAP$B_LENGTH 
DAP$B_LVL 
DAP$B_NAME TYPE 
DAP$B_NOA 
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ATT_MSG 

CHECK FILE SYSTEM 
CHECK_OPERATING SYSTEM 
CHECK PROTOCOL VERSION 
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Pp 
DAP$B~ORG 
DAPS$B-OSTYPE 
DAP$B-RA 


APS$K_AOP~U 
DAPSK_ATTRENU_I 
DAP SK ATTAENUU 


DA 
DAPSK-CTL_MSG™ 
DAPSK "CYL 


ro 0 
FAL.SRCJFALDECOD 


are 


nnnnnnnnnnnnnnun 
MFM VN ON NA DNF MOO FS UIMVIOOCOCCOTD CQOPWAOWO FS FON OBWVPAOWAO NOUS OO 


OOoOSOOOCOSOOOOOOOOOOOOOOOOOO MNOOOOCCOCCSOSOOOCOOCOOOOOOOOOOOOOOOOOOoOO 


OOoOOCOCOCOSCOSOSOSOSOSOSOOSOSSOOSOSSS SOOO SOSOSOOOOOOSOOCOOSOOOOSOOOoOSoO 


$71 


ft: ree Macro V04-00 
4 FAL. SRCJFALDECODE .MAR 


= DECODE DAP MESSAGE 


FALDECODE 
Symbol table 


QMO — ONT — — OM ZL DONT VMI —NOOMOOONNN = OwW0 VOOT ONO. VLODOO OO DOr-hr-OM 
SOOOCOCOCOCOOCOOOCOOOOCOOOOOOOOOOOOO - O90 ——4uOuCOO0OCO00-OCDOCOCOOCOCOO 


w “D> w 

w w jv3ss eos -——> yn Ww 

w i) vw a vu “wow. OoOoOZZ o 8 € to & wee 
Vw Zw Ow nw ofzskw WY Ye mo Ft Yen BZDDMOOCOCOC=E ww 
<Z-O8>2a OF OONHD ewer m— & SHOD 1 tUWIeuUUKrEE Sew ee SZ uNwe 
witwo ra | Kon) tM ree #e+tt MaAavwoBd t_tee Cn £€ OBFuww mnrv2a <« 
aAZMMNM BS FMWMHM W600 ee wwe OO SOSA eA CO OA oOaUEEEVOCaEaeweezeOaAaAa Ske Oo 
WWW FEE EOOCMMMMN YR WWW Tt TT eM MAAN ee ee DW  OO00OfZ aa 
SSeS eee eee eee SSS SSL SSCXCMVMWVWVYMVIVMVWVHVWHVVVHVWVHVVVWVWVVOOR KR eee eee DF 
eetstseeceeeecereerpeereerereeceeeeeeeeeceeepeereeraerperereeeepeeeeeeeeeeeees 
Del a a ae ae a a ae a a a Oe a Ok ne Oe a a Be ae Be a a a Oa Bk a Oe Oe Be Od ee Oe a a a ad ae ae ae ak De ae ae a a ne Bn Ok nk nk On Od Ok Oe ae 
PAOD APF AAA EAA LA AA FH FH OF 63 9 FB PM DDH AE AD DG AA WD 9 59 oD © OF £9 FD 54 WH DPA DUA A 
QO2qc0agaaaaoaaAaAAKAAAAAAAaRaAKAAAAGAAAaAAaAAAaAaAAAAaAAMA AMA oOaAoa ooo oooh 
aqqdtdetdteeet deeded deeded deeded deeded deed de deeded eee eee eee eee eee eect 
AAOOOHOHBOHOOHOBOBOOBOBOHOHOAOABHBABHGABAGHAHBAABABABOBOBBAOBBOOBABOOAOBaOAOBOoOoOoAaAaOa 


-—D> -—> —>D>=—D> w 
_ ‘ee mw a ‘8 #068 t = 
“Y2Z>>> w ii -—> < 2303 o 23>. .-0~—- 
sZ<aaaet +O ‘4 w zu Z2Z2Vevuva 
=—340 JI wD Zz ZOD YYN=DIeD = wwtt £Y OC Wwwwes -—D> 
'eaadanvouww titra oo to tw ii Ze tt &Zz 1 S3So5 (ore 6 8 
FEMME Wr VVOUUYUZ KE CUO DAO wr OO t frtetetet } | wow oo0r Orr 
dt ot ot ott OF OO EE tt OO ewe OZ Z Zw essseeescE Od<caw 
OOOOCCOWWWWe eee eee eee ee Ot ett IEF ZOOAGAAAAAAaASoaaee 
lad nd nd od ed ed nl el ed ee ed ed nd ded ln lad ad wl ed ud ed nd et Pad nd add ut nt wll Bees. #eopeeees Paanal (88. 
PE RBADE DR AEABDD DED DED RBAR ARE DEBRE EDAD ABR EBDABBARAR AD REA BARBAS 
eeeeeeeneeeeteeeeeeeeeee eee eee eee eee eee e eee eee ee eee eee 
OSOOKOLS ISOOOOCHOHOCAHHOHOHOOCHHAHOOAOGAGCASBSOOAOAOOOOAOBABAOABoOHBaaaoeaeoeaa aaah ao 


| 
| 


d 7 
FALDECODE - DECODE DAP MESSAGE 19-3 


PhS 1:4 36 ere Macro V04-00 Page 5 
Symbol table SEP=19 1:16: 


3 
4 & FAL.SRCJFALDECODE .MAR; 1 (26) | 


DAPSK_VAR : 2 DAPS$Q_EDT 58 
DAP$K “VAXELAN = F DAPSQ"FILEDATA 44 | 
pee : HSSSe Title i 
APSK ~VF = APSQ"KNM é | 
DAPSLTALGI ¥ 4c DAP$Q"MSG_BUF 1 os | 
DAPSL~ 9004 DAPSQ"MSG BUF 00001 
DAPSL~ATTMENU 4 DAPSQ"NAMESPEC 000044 
DAPSL~CMWA 900003 DAPSQ"OWNER 48 | 
DAPS$L~CRC_RSLT 9000 DAP$Q "PASSWORD 05 | 
DAPSL_DCOBE_ STS 30990 DAPSa_PDI a8 
pat San00? BAPEG-HUNSYS Sean | 
DAPSU =F OPI 0000064 DAP$Q_SYSCAP 09000¢8 | 
DAPSL ~FOP2 0000044 DAP$Q"SYSPEC 9000 | 
DAPSC KEYMENU 66000046 PAPSVTAID + $0 008 
ot Saute REN : BSse 
DAPSL-MSG MASK 0000001C DAP$V_ALQ2 = $0000008 
Soe ine et ae : Hesse 
DAPSL~ROP 00000050 DAPSV~BITCNT = 00000003 
Et a3 et a : ABSsa 
ee its per eion : asset 
DAPSL~SSP~FLG 00000084 DAPS$V~BSZ = 0000000D | 
DAPat nie 00000090 DAPSV-OAN = 90000009 | 
DAPSM~BITENT = 00000008 DAPSV“DATATYPE = $0000000 | 
peer here : HBseee setae : Hse 
DAPSM~DF TSPEC = 90009 i DAP$V~DEQ2 = $0000008 
DAPSM~D = 00002000 DAPSV~DEV = 0000000E | 
DAPSM_DSP_3NAM = 00000200 DAPSV_DFL = 00000001 
DAPSM_DSP-ATT = 44 01 DAPS$V_DISPLAY2 = 00000005 | 
DAPSM~ EMBEDDED = 00000010 DAPSV~DTP = 0000000A | 
DAPSM~GET = 00000002 DAPS$V~DVB = 90000000 | 
DAP$M~GO_NOGO = 0000001 DAPS$V~EBK = 90090012 | 
DAPSM~ IMAGE = 00000002 APSVEDT = 9000009 | 
DAPSH_LOADIN = 90000001 DAPSV“FS : atte | 
DAPSATAACY11 : 0900008 DAPS$V"FLG = $9000000 | 
DAPSM~MSE = 900000) DAPSV~FOP1 = 000000¢ | 
DAPSM” SEGMENT = 0000004 DAPSV~FSZ = 00000008 | 
DAPSM~THP1$ = 00000020 DAPS$V~GEQ_V41 = 900000 | 
DAPSAC TMP SS = 9002000 DAPEV=GEa-VS2 ° | 
DAPSM~THP4S : 099 0 ; DAPBV=GEa¥5 2 § | 
DAPSM~TMPSS = FO DAPS$V~GEQ"V : i 
DAPSM~ZERO - APSV"GEQ-VG : 4 
AP$Q"ADT DAP$V~GEQ"V : 6 
DAPsarept é DAPSV “ADK” : | 
DAPS$O~DCODE_FLG 000000 DAPSV~IAN 2 007 
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Symbol table “SEP=1984 01:16:49 CFAL.SRCJFALDECODE.MAR; 1 (26) | vO 
DAPSV_IAS = a DAP$W_CHECK 42 
DAPSV_IBS = F DAPS$W"CTLMENU 4 
DAPSV-IFL = : DAPS$W"DEQ1 54 

DAPSV_KEY = DAP$W-DEQ2 52 | 
DAPSV_KNM = DAPSW_DFL 44 

DAPSV-KRF = DAPSW-DISPLAY1 0 4C 
DAPSV~LAN = 0 DAP$W_DISPLAY2 54 

DAPSV~LEN256 = 0 DAPSW_FFB 99 72 

DAPSV_LENGTH = 00 991 DAPSW-IFL 00004 | 
DAPSV— = 00000003 DAPS$W-LRL 000007 | 
DAPSV~LRL = 0000001 DAPSW_MRL 00007 
DAPSVLVL = 99 1 DAPSW_MRS 4A | 
DAPSV_MRL = 1 DAP$W-PARTNER 06 

DAPSV_MRN = 990 009 DAP$W_POS 0000004C 

DAPSV_MRS = 00000005 DAP$W-POS_TMP 000004A 

DAPSV_NSG = 00000003 DAP$W-PROGRP 0000054 

DAPSV_NUL = 90000006 DAP$W~PROMENU 000004 

DAPS$V_ORG = 00000001 DAP$W~PROOWN 0000005 

DAPS$V_OWNER = 00000000 DAPS$W-PROSYS 0000005 

DAP$V_PDT = 00000005 DAP$W~PROWLD 00000056 
DAP$V_PROGRP = 00000003 W~PVN 0000004 

DAP$V_PROOWN = 00000002 DAPSW-RFA 6000004 

DAPSV~PROSYS = 00000001 DAPS$W_RVN 000004 

DAP$V~PROWLD = 90000004 DAP$W-SSP_MENU 00000080 

AP$V~P_O = 0000003¢ DAP$W~STSTODE 00000040 

DAPS$V_RAC = 90000000 DAPS$W~SUMENU 00000040 

DAP$V_RAT = 0000000 DAPS$W~TIMENU 00000040 

DAPSV_RDT = 00000007 DAPS$W_VERSION 00000004 | 
DAPSV_REF = 00000004 P$W-VOL 99000042 
DAP$V_ = Spon es DAPS$_ACCFUNC = 0000001 
DAPSV_RMS = 00000030 DAPS$_ACCOPT = 00000011 
DAPS$V_ROP = 90000005 AP$~ADT = 00000017 
DAPSV_RSTS = 00000039 DAPS_AID = 00000017 
DAPSV_RSX = 90000054 DAP$_ALLMENU = 00000010 
DAPS$V_RT1 = 00000038 DAP$_ALN = 90000012 
DAPSV~RUNSYS = 0000000A DAP$"ALQ1 = 0000001 | 
DAPS$V_RVB = 90000008 DAP$_ALQ2 = 9000016 
DAPS$V_RVN = 0000000 DAP$_AOP = 900001 
DAP$V~SBN = 99000034 DAPS$_ATTMENU = 990010 
DAP$V~ SEGMENT = 00000006 P$"BDT = 0000 1 
DAP$V~SSP_CAP = 00000000 DAP$_BKS = 999 18 
DAPS$V~SSP~FLG = 99000001 P$"BKZ = 99001 | 
DAPS$V~STM~ ONLY = 00000032 DAP$~BLKCNT = 0000001 
DAPSV~STREAMID = 99 9 09 DAP$_BLS x 09 1 
DAPS$V~SiSPEC = DAP$~BSZ = 3 
DAPSV~TKS = 9 or DAP$_BUF SIZ = 09 1 
DAP$V~TOPS10 = $ DAP$_CDT a 11 | 
DAP$V_TOPS = DAP$~CHEC = 1 | 
DAPS$V~VAXELAN = 5 DAPS_CMPFUNC = 1 
DAP$V~VAX = 4 DAP$_ CONF UNC = 1 | 
DAPS$V_VMS_XPF1 = ¢ DAPS$~CTLFUNC = 1 
DAP$V~VOL = 0 DAP$~CTLMENU = 1 

DAP$V_X_CHECK s 1 “DAN z 1 f 
DAP$V~X~RECNUM = DAPS$_DATATYPE = 1 
DAPSW_ACLMENU 4 “DBS = 1 

DAP$W~BLS 4 DAP$_DECVER = 6 

DAP$W~BUF SIZ 4 DAP$~DEQ1 = 0000001C 
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DAP$_DEQ2 
DAPS_DEV 


DAPS_DFL 
DAPS_DISPLAY1 
DAP$_DISPLAY2 
DAPS_DTP 
DAP$_DVB 
DAPS_EBK 
DAPS_ECONUM 


DAPS_FOP2 
DAPS_FORMAT 
D $2 


DAPS$_IFL 
DAPS_INVALID 


DAP$_OSTYPE 
AP$_OWNER 
DAP$_PASSWORD 


DAP$_PROOWN 
DAP$_PROSYS 
DAP$_PROWLD 
DAPS~RAC 
DAPS-RAT 
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FALDECODE = DECODE DAP MESSAGE 16-SEP-1984 01:42:3 AX/VMS Macro V04-00 Pa 6 
Symbol table aioe 1 gti 74 FAL.SRCJFALDECODE.MAR; 1 - 38) 
PLL 904 R 
SSP_MINI MSG SAS R 
SSP" SUCCESS A06 R 
TORE _EXT AD R 
STORE_FIELD 80 R 
TORE —F IX DS R 
STORE_IMG eS R 
STORE _1MG1 EB R 
ORE_ROM 00 FS R 
SYSSBINTIM ekeneeee GX 
TIM_INVALID OOOO7DE R 0 
TIM_LOOP $8 of 8 8 
TIM_MSG 7 R 
TMPT.. = Bp gore R 0 
TMP2.. = 00 AOS R 0 
V_DESC = 00000004 
V_SRCR3 = 44 46444 
V_TRUNC = 0000000 
tence one eon coca + 
! Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
> * 00000000 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 000000C0 196-3 01 ¢ #1.) \NOPIC USR CON’ ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
FALSCODE QOOOOAOF (¢ 2575.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
Fee cree ence cere see sc mer moan 
! Performance indicators ! 
pmo res nmmneeaee si cer eceeere 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 90 : 80:90. 0% 00:00:01.80 
Command processing 132 88? 8390 6 SS BET a 
Pass 454 88: 0:16.12 00:01:05.58 
Symbol table sort g 0:00:01.10 O08 «88 
Pass 2 35 Sb Be ot 4 0:00:12.9 
Symbol table output 51 00:00:00.30 820020 «28 
Psect synopsis output 0 0:00: 3 0:00:00.0 
Cross-reference output Sf 3-8 es Bes 
Assembler run totals 102 0:00:22.04 0:01:28. 


The york ing set yp was 2250 pages. ; 

124255 bytes (245 pages) of virtual memory were used to buffer the intermediate goer. 

There were 60 pages of symbol table space allocated to hold 1010 non-local and 156 local symbols. 
5 source Lines were read in Pass 1, produc ing 24 object records in Pass 2 
pages of virtual memory were used to define 55 macros. 
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FALDECODE 


= DECODE DAP MESSAGE 16-SE 
VAX=-11 Macro Run Statistics 5-SE 


76 AX/VMS Macro v04-00 Page 57 
74 FAL.SRCJFALDECODE.MAR; 1 (26) 


¢erreceecrwones THe DB es oe eames wa > 


! Macro Library statistics ! 


perso wret esc eecaaseeseseneeeee + 


—————SS 


Macro Library name Macros defined 
“$255$DUA 8: 4 -OBJJFAL.MLB; 1 24 
“$255$DUA28: (SYSLIBJSTARLET.MLB; 2 6 

TOTALS (all Libraries) 30 


1460 GETS were required to define 30 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:FALDECODE/OBJ=0BJ$:FALDECODE MSRC$:FALDECODE/UPDATE=(ENHS$:FALDECODE) +LIB$:FAL/LIB 
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